Question

Viết chương trình nhập số nguyên n và n số nguyên từ bàn phím?In ra màn hình tổng các số chẵn

Answer 1

Program HOC24;

var n,i: integer;

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

t: longint;

begin

write('Nhap N: '); readln(n);

write('Nhap so thu ',i,': '); readln(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Answer 2

Viết chương trình nhập số nguyên n và n số nguyên từ bàn phím?In ra màn hình tổng các số chia hết cho 3 và 5