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 ;)