bài tập tin (b2)

program b2;
var a: array[1..100] of integer;
p:real;
s,n,i:integer;
begin
write('so luong cac so trong day la : ');
readln(n);
s:=0;
p:=1;
for i:=1 to n do
begin
write('so hang thu ',i,' la ');
readln(a[i]);
if (a[i] mod 2 = 0) then s:=s+a[i];
if (a[i] mod 2 <> 0) then p:=p*1/a[i];
end;
writeln('tong cac so chan la ',s);
writeln('tich nghich dao cac so le la ',p:15:13);
readln
end.



Bài này đảm bảo đúng. Chúc pà con kt 1 tiết tốt