uses crt; var i,n,min:longint; a:array[1..100000]of longint; begin clrscr; write('Nhap n: (n<=1000) ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); end; min:=a[1]; for i:=1 to n do if min>a[i] then min:=a[i]; writeln(min); readln end.
