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 le cua mang: '); for i:=1 to n do if (a[i] mod 2=1) then write(a[i],' '); readln; end.
uses crt; var A:array[1..1000] of integer; i,n:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(A[i]); end; write('Cac so le trong mang la: '); for i:=1 to n do if A[i] mod 2 = 1 then write(A[i]:4); readln end.
