Program tongchan;

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

I,n,S, dem: integer;

Begin

writeln('Nhap so luong phan tu:'); readln(n);

dem:=0;

for i:=1 to n do Begin writeln(Nhap so thu:',i);

readln(A[i]);

End;

S:=0;

writeln('Cac so chan trong day la:');

for i:=1 to n do if A[i] mod 2 = 0 then Begin

write(A[i]:6);

dem:=dem+1;

S:=S+A[i];

End;

writeln('Tong cac so chan la:',S);

writeln('so luong so chan');

readln

End.

Program tongchan;

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

I,n,S: integer;

Begin writeln('Nhap so luong phan tu:');

readln(n); for i:=1 to n do

Begin writeln(Nhap so thu:',i);

readln(A[i]); End; S:=0;

writeln('Cac so chan trong day la:');

for i:=1 to n do if A[i] mod 2 = 0 then

Begin write(A[i]:6); S:=S+A[i];

End;

writeln('Tong cac so chan la:',S);

readln

End.