/ VÀ CÂU 10./ TỰ HỌCA

9./ và câu 10./ tự học

A:=length(‘Trung_Hoc_Pho_Thong’) mod 3 div 2;

Phần 2: (5đ) Học sinh đọc kỹ đề bài. Chỉ viết một chương trình

a) Nhập vào mảng một chiều C kiểu số nguyên gồm n phần tử (n <= 50).

b) Xuất ra màn hình các phần tử C[i] khác 0 theo chiều ngược với thứ tự nhập.

c) Tính tích các phần tử C[i] chia hết cho 3 và 5. Xuất kết quả tính được ra màn hình.

d) Đếm các phần tử C[i] âm hoặc chia hết cho 4 . Xuất kết quả tính được ra màn hình.

e) Tìm giá trị nhỏ nhất Min trong mảng C[i] và xuất Min ra màn hình.

f) Tính trung bình cộng các số không chia hết cho 5 hoặc chia hết cho 6

Program Bai_Tap;

For i:=1 to n do

if (C[i] mod 3 = 0) and (C[i] mod 5 = 0) then

Var C:array[1..50]of integer;

i,n,dem,max: integer;

P:=P*C[i];

S,P:Longint;

Writeln('Tich la:',P:5);

{d}

TBC:Real;

Begin

if (C[i] < 0) or (C[i] mod 4 = 0) then

{a}

dem := dem+1;

Write('Nhap N='); Readln(n);

For i:=1 to n do

Writeln('dem=' ,dem);

{e}

Begin

Write('Nhap C ',i, '=');

Min:=C[1];

For i:=2 to n do

Readln(C[i]);

if C[i] < Min then Min:=C[i];

End;

Writeln('Min=' ,Min);

{b}

{f}

Write('Cac phan tu khac khong:');

S:=0; dem:=0;

For i:=n downto 1 do

For i:=1 to n do

if C[i] <> 0 then

If (C[i] mod 5<>0) or (C[i] mod 6=0) then

write(C[i]:5);

Begin

dem:=dem+1;

writeln;

S:=S+C[i];

{c}

End;

P:=1;

TBC:=S/dem;

Writeln(‘Trung binh cong=’,TBC);

Readln; End.