uses crt; var n,i ,min : integer; a : array[1..100] of integer; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; min:=a[1]; for i:=2 to n do if min > a[i] then min:=a[i]; write('Phan tu nho nhat la :', min); readln end.
