uses crt; var i,n:longint; a:array[1..100000]of longint; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); end; for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); readln end.
var i,n:longint; a:array[1..100000]of longint; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); readln;
