高校问答拳皇1.91春丽:pascal直接选择排序
来源：百度文库 编辑：高校问答 时间：2024/04/27 23:15:04
用pascal给十个数按从小到大直接选择排序，用上数组，切勿掺上布尔～～～～
var a:array[1..10] of integer;
temp:integer;
i,j,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 9 do
begin
k:=i;
for j:=i+1 to 10 do
if a[k]>a[j] then k:=j; { k记录内循环比较中最大元素的下标值 }
if i<>k then
begin
temp:=a[i];
a[i]:=a[k];
a[k]:=temp;
end;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
另外，我这个，10个数都是整形，如果要实型，在定义那修改就好了。