Question

Cho mảng A(n số nguyên nhập từ bàn phím) a) Hãy viết chương trình tính tổng của các số chia hết cho 5 b) Hãy viết chương trình tính tích các số trong mảng A thỏa mãn điều kiện lớn hơn 0 c) Hãy viết chương trình tính tổng của các phần tử lẻ các số trong mảng

Answer 1

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

t,t2: longint;

t1: int64;

begin

write('n='); readln(n);

t:=0; t1:=1; t2:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 5=0 then t:=t+a[i];

if a[i]>0 then t1:=t1*a[i];

if a[i] mod 2<>0 then t2:=t2+a[i];

end;

writeln('Tong cac gia tri phan tu chia het cho 5 la : ',t);

writeln('Tich cac so lon hon 0 la : ',t1);

write('Tong cac phan tu le la : ',t2);

readln

end.