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

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

输入N个整数,请找出最小数所在的位置,并把它与第一个对调pascal
program xzpx;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('Enter date:');
for i:= 1 to n do read(a[i]);
writeln;
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if a[j]