Program Mang_Tong_Chan;
uses crt;
var i,n:byte;
M:array[1..100] of integer;
tong:longint;
begin
write('Nhap so phan tu cua day: ');readln(n);
for i:=1 to n do
begin
write('M[',i,']'); readln(M[i]);
end;
tong:=0;
for i:=1 to n do if M[i] mod 2 =0 then
tong:=tong+M[i];
write('Tong cac so chan trong day la: ',tong);
readln
end.