Uses crt ;
var min , n , i : integer ;
A:array[0..100] of integer ;
Begin
Clrscr ;
Writeln (' so phan tu trong mang : ' ) ;
Readln (n) ;
For i :=1 to n do
Begin 
Write ( 'a [ ', i , ' ] = ' ) ;
Readln ( a [ i ] ) ;
End ;
min := a [ 1 ] ;
for i :=1 to n do
If min > a [ i ] then min := a [ i ] ;
Writeln ( ' gia tri nho nhat cua mang là : ' , min ) ;
Readln 
End .