Program baitap;

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

i,n,min: integer;

Begin

writeln('nhap vao so phan tu cua day so:'); readln(n);

For i:=1 to n do

Begin

Writeln('A[',i,']=');readln(A[i]);

End;

Min:=a[1];

For i:=2 to n do

Begin

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

End;

Writeln(min,' la so nho nhat');

Readln;

End. 

Bạn tham khảo thử đi

~Mình sửa lại luôn rồi nha bạn~

Học tốt!

program ct;

uses crt;

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

      i,N,min:integer;

begin clrscr;

   write('Nhap so phan tu mang: '); 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];

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

readln;

end.