uses crt; var T:array[1..1000] of integer; i,n,stt,min:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(T[i]); end; min:=T[1]; for i:=2 to n do if T[i]<min then begin min:=T[i]; stt:=i; end; write('So nho nhat la so ',min,'o vi tri thu',stt); readln end.
