uses crt;
var i,n,min:integer; a:array[1..1000000]of longint; 
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('a[',i,']= ');readln(a[i]);  
         if i=1 then min:=a[i];
         if min>a[i] then min:=a[i];
      end; 
   writeln('So nho nhat: ',min);   
readln
end.

Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:longint;
Begin
Write('Nhap so ptu n vao: '); Readln(n);
Writeln('Nhap cac ptu vao: ');
For i:= 1 to n do
Begin
Write('a[',i,']= '); Readln(a[i]);
End;
min:=a[1];
For i:=2 to n do
If min>a[i] then min:=a[i];
End;
Write('So be nhat trong day so 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 bạn nhá :333
* P/S: Hỏi gì thì comment bên dưới nhá :D