usescrt; varn,i:integer; a:array[1..100] of integer; begin clrscr; write('nhap n:');readln(n); fori:=1ton do begin write('a['i']=');readln(a[i]); end; fori:=1ton do ifa[i] mod 2=then writeln(a[i],' la so chan'); readln; end.
program oken; uses crt; var a: array [1..100] of integer; n,i:integer; begin clrscr; write('nhap so phan tu cua mang: '); readln(n); 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 write(a[i],' '); readln; end.
