Viết chương trình nhập từ bàn phím một số ngiyeen dương n ko vượt 100 và dãy A gồm n số nguyên A1, A2.. An. Tìm số nhỏ nhất. Làm hộ mk mk cần gấp

program ct;

uses crt;

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

      i,n,min:integer;

begin clrscr;

   write('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     min:=A[1];

   for i:=1 to n do

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

   writeln('So nho nhat la: ',min);

readln;

end.

Học tốt!

uses crt;
var A:array[1..100] of integer;
    n,i:byte; min: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;
   min:=A[1];
   for i:=2 to n do if A[i]<min then min:=A[i];
   write('Min la: ',min);
   readln
end.