uses crt;

var a: array[1..100] of integer;

i,n: integer;

begin

clrscr;

write ('nhap n: ');   readln (n);

for i:=1 to n do

begin

write (;nha phan tu thu ',i,': ');   readln (a[i]);

end;

writeln ('cac so le co trong mang la: ');

for i:=1 to n do

if a[i] mod 2=1 then write (a[i]:4);

readln;

end.

//trumtinhoc

 uses crt;
   var a:array[1..100]of longint ;
  i,n:byte;
 begin
 clrscr; 
  write('n=');
   readln(n);
    for i:=1 to n do 
     begin
  write('a[',i,']=');
    readln(a[i]);
    end;
 for i:=1 to n do
   if a[i] mod 2=1 
     then
       write(a[i]:3);
      readln
     end.
    //khoadang09