来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/17 09:05:33
问一道Free Pascal的题目.
输入n个整数的数列,请找出数列中最小数所在的位置（有多个最小数,则选最左边的那个最小数）,把它与数列的第一个数对调,其他数的位置不动,输出此数列.
Var
i,max,id,temp:longint;
k:array[1..10000]of longint;
Begin
read(n);
for i:=1 to n do
read(k[i]);{读入
id:=n;
max:=maxlongint;{初始化设置}
For i:=n downto 1 do
if k[i]
神马作文网