请各位会用Free Pascal的大师们进来啊！！！

来源：百度知道 编辑：UC知道 时间：2024/09/28 17:30:52
输入十个数，选出最小的数，将它与第一个数换位，输出换位后的数组数组。

请帮鄙人写一个程序。
谢谢
如 ：

输入
10 15 7 9 16 5 199 2 1 3
输出
1 15 7 9 16 5 199 2 10 3

program example;
var
i,j,tmp:integer;
a:array[1..1000]of integer;
begin
for i:=1 to 10 do
read(a[i]);
j:=1;
for i:=2 to 10 do
if a[i]<a[j]
then
j:=i;

tmp:=a[1];
a[1]:=a[j];
a[j]:=tmp;
for i:=1 to 10 do
write(a[i],' ');
readln;
end.

利用标号法

program dh;
var n,i,x,t:integer;
a:array[1..10] of integer;
begin n:=10;
for i:=1 to n do
read(a[i]);
j:=1;
for i:=2 to 10 do
if a[i]<a[j] then j:=i;
t:=a[j];
a[j]:=a[1];
a[1]:=t;
for i:=1 to n do write(a[i],#32);
end.

Program e;
Const
m = 10;
Var
a:Array[1..m] Of Integer;
p, x, i, min: Integer;
Begin
For i:=1 to 10 Do
Read(a[i]);
min := a[1];
p := 1;
For i:=2 to 10 Do
If a[i] < min Then Begin
p :=