uses crt;
var a:array[1..250]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------xu-ly------------------------------}
dem:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so phan tu chan trong day la: ',dem);
writeln('tong cac phan tu chan trong day la: ',t);
readln;
end.