program sochan;

uses crt;

var a:array[1..50] of integer;

n,tongchan:integer;

begin

clrscr;

tongchan:=0;

writeln('Hay nhap so phan tu A');readln(n);

for i:=1 to n do

begin if a[i] mod 2=0 then tong chan:=tongchan+a[i];

writeln(a[i])

end;

writeln('Tong cac so chan la ',tongchan);

readln;

end.

Cho mình câu trả lời hay nhất nha ;) 

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

A:array[1..100] of integer;

Begin

clrscr;

S:=0;

 Write('nhap n tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

    Write(' A[',i,']');readln(A[i]);

End;

For i:=1 to n do

If (A[i] mod 2=0) then

S:=S+A[i];

Write(' Tong cac so la ',S);

Readln

End.