uses crt; var A: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(A[i]); end; min:=A[1]; for i:=2 to n do if A[i]<min then begin min:=A[i]; stt:=i; end; write('So nho nhat la so ',min,', o vi tri thu ',stt); readln end.
