uses crt; var n,i,s:longint; a:array[1..10000000]of longint; begin clrscr; write('Nhap so n: ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');read(a[i]); if a[i] mod 2=0 then inc(s,a[i]); end; writeln('Tong cac phan tu co gia tri chan: ',s); readln end.
