uses crt; var i,n,t : integer; a : array[1..100] of integer; begin clrscr; t:=0; write('Nhap n:'); readln(n); for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i]; write('Tong cac so chan cua day :', t); readln end.
