program ct;

uses crt;

var A:array[1..1000] of integer;

      n,i:integer;

      S:longint;

begin clrscr;

   writeln('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin
        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

        if A[i] mod 2=0 then S:=S+A[i];
     end;

   for i:=1 to n do if A[i] mod 2=0 then write(A[i]:3);
   writeln('Tong cac so chan la: ',S);
readln;

end.

Học tốt!

[B][COLOR="Blue"]
Uses crt;
var a: array [1..1000] of integer;
i, n, tong: integer;
begin clrscr;
write ('Nhap so luong phan tu: '); readln (n);
for i:= 1 to n do begin write ('Nhap phan tu thu ',i,': '); readln (a[i]);
if a[i] mod 2 = 0 then tong:=tong+a[i];
end;
write ('Cac so chan trong day: ');
for i:= 1 to n do
   if a[i] mod 2 = 0 then write (a[i],' ');
writeln; write ('Tong cac so chan la ',tong);
readln
end.

Cho mình vote 5 sao và câu trl hay nhất nhé, Thanks