program bai_giai; uses crt; var A:array[1..10000] of integer; n,i,t:integer; begin clrscr; write('Nhap N = '); readln(n); t:=0; for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(A[i]); if A[i] mod 2=0 then t:=t+A[i]; end; write('Tong cac phan tu chia het cho 2 la: ',t); readln; end.
