program ct;

uses crt;

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

      i,n,min:integer;

begin clrscr;

   write('Nhap so phan tu 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('Gia tri nho nhat cua day so vua nhap la: ',min);

readln;

end.

Học tốt!

Program Hotboy ;

Uses crt;

Var i,n,MMin:integer;

S:longint;

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

Begin

Clrscr;

S:=0;

Write('nhap n tu ban phim');

Readln(n);

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];

Write('so nho nhat la',Min);

Readln

End.