uses crt;
var a:array[1..150] of integer;
var n,i,s:integer;
begin
clrscr;
write ('nhap so phan tu trong mang: '); readln(n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln ('tong cac so nguyen duong trong mang la: ',s);
readln;
end.