program tim_min;
var i,n,k: integer;
     A: array [1..1000] of longint;
procedure timmin;
var k: integer;

 begin
  k:=1;
  for i:=2 to n do
         if A[k]>A[i] then k:=i;
  writeln('phan tu nho nhat la ',A[k]);
 end;
 function timmin ( c,b,d: integer):integer;
 begin
  d:=1;
  for c:=2 to b do
   if A[d]>A[c] then d:=c;
  writeln('phan tu nho nhat la',A[d]);
 end;
begin
 write(' moi nhap so phan tu ');
 readln(n);
 for i:=1 to n do
  begin
   write('A[',i,']=');
   readln(A[i]);
  end;
 timmin;
  timmin(i,n,k);
 readln;
end.