program oken; uses crt; var i,n,s:longint; a: array [1..1000] of longint; begin clrscr; write('nhap so phan tu cua mang: '); readln(n); s:=0; for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; write('cac so chan cua mang: '); for i:=1 to n do if a[i] mod 2=0 then begin s:=s+a[i]; write(a[i],' '); end; writeln('S=',s); readln; end.
