Question

Cho mảng gồm 200 phần tử số nguyên. Tính tổng các phần tử chẵn và có mấy phần tử chẵn đó. 

Answer 1

Var a:array[1..200] of integer;

i,dem,s:integer;

begin

For i:=1 to 200 do

begin

write('Nhap phan tu thu ',i,' ');readln(a[i]);

end;

For i:=1 to 200 do

begin

if a[i] mod 2 = 0 then

begin

dem:=dem + 1;

s:=s+a[i];

end;

end;

writeln('tong cac so chan la ',s);

write('Co ',dem,' so chan');

readln;

end.