program bai_giai;

uses crt;

var A:array[1..1000] of integer;

     n,i,max,min,d:integer;

begin

      clrscr;

       write('Nhap so luong phan tu n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       max:=A[1];  min:=A[1];

       for i:=1 to n do

              begin

                     if A[i]>max then max:=A[i];

                     if A[i]<min then min:=A[i];

                     if A[i] mod 2=1 then d:=d+1;

              end;

       writeln('Gia tri lon nhat la: ',max);

       writeln('Gia tri nho nhat la: ',min);

       if d=0 then write('Khong co so le nao')

       else

              begin

                     write('Cac so le cua mang la: ');

                     for i:=1 to n do

                            if A[i] mod 2=1 then write(A[i],' ');

                     writeln;

                     write('Co ',d,' so le');

              end;

       readln;

end.

Uses crt;
Var a:array[1..100] of integer;
i,n,dem,min: integer;
Begin
Clrscr;
Repeat
Write('- Nhap so ptu n  vao: '); Readln(n);
Until n > 0;
For i:=1 to n do
Begin
Write('Nhap: a[',i,'] = ' ); Readln(a[i]);
End;
min:=a[1];
Writeln('- Gia tri nho nhat trong day so la: ',min);
Dem:=0;
For i:= 1 to n do
If a[i] mod 2 <> 0 then dem:=dem+1;
If a[i] mod 2 <>0 then
Begin
Writeln('- Trong day so tren, co ', dem,' so le ');
Writeln('- Do la cac so: ');
end else Write('Khong co so le nao o day so tren!');
For i:= 1 to n do if a[i] mod 2 = 1 then write(i:4);
Readln;
End.

*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhớ! Thanks :D
* Hỏi và đáp, comment bên dưới!