输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组）

输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组）
输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组）

输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组）
var a:array[1..1000]of integer;
n,i,j,k:integer;
begin
readln(n); j:=1;
for i:=1 to n do
begin
read(a[i]);
if a[i]