viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.

program nho_nhat;

uses crt;

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

      n,i,min:integer;

begin

      clrscr;

      write(‘Nhap N: ‘);  readln(n);

      for i:=1 to n do

            begin

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

            end;

      min:=A[1];

      for i:=2 to n do

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

      write(‘So nho nhat la: ‘,min);

      readln;

end.