PASCAL数组排序问题

来源：百度知道 编辑：UC知道 时间：2024/05/27 17:46:52
输入a1,a2,a3...a20,将它们从小到大排序后输出,并给出现在每个元素所对应的原来次序.
例:
输入:27,3,60
输出;3 2
27 1
60 3

好久没写出这样的程序了,意思是对的!!你再看看:
TYPE data=ARRAY [1..20] OF integer;
VAR a:data;
i,j,idx,num:integer;
BEGIN
for i:=1 to 20 do
readln(a[i]);
for i=1 to 20 do
begin
num:=a[i];
idx:=i;
for j=1 to 20 do
begin
if a[j]<num then
begin
num:=a[j];
idx:=j;
end
end;
write(num);
writeln(idx);
end;
END;