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('A[',i,']= ');  readln(A[i]);

              end;

       write('Day so la: ');   

       min:=A[1];

       for i:=1 to n do

              begin

                     write(A[i],' ');

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

              end;

       writeln;

       write('=> So nho nhat la: ',min);

       readln;

end.

Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Writeln;
Write(' Day so tren co cac ptu la: ');
For i:= 1 to n do
Begin
Write(a[i]:3);
End;
min:=a[1];
For i:= 2 to n do
Begin
If min>a[i] then min:=a[i];
End;
Writeln;
Write('Ptu nho nhat trong day la: ', min);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks :D
* Hỏi gì thì comment bên dưới nha :D