program baitap;
uses crt;
var a:array[1..500] of integer;
      n,i,count,tong:integer;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
if (n<0) then 
begin
writeln('So nhap vao khong thoa man.');
write('Moi nhap lai: ');readln(n);
end;
for i:=1 to n do 
begin
write('Nhap a[',i,']: ');
readln(a[i]);
end;
count:=0;
tong:=0;
for i:=1 to n do
if ((a[i] mod 2)=0) then
begin
count:=count+1;
tong:=tong+a[i];
end;
writeln('So phan tu chan co trong mang: ',count);
write('Tong cac phan tu chan do: ',tong);
readln;
end.

// Chương trình chạy sai thì ib -.-