uses crt;
var a: array[1..100] of integer;
dem,s,i,n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;
end;
writeln ('trong mang co ',dem,' so chan');
writeln ('tong cac so chan trong mang la: ',s);
readln;
end.