输入N个数（1<=N<=100），将它们从小到大排序后输出，并给出现在每个元素所对应的原来次序。pascal语言
答案:2 悬赏:20 手机版
解决时间 2021-02-15 12:42
- 提问者网友：却不属于对方
- 2021-02-14 15:46
输入N个数（1<=N<=100），将它们从小到大排序后输出，并给出现在每个元素所对应的原来次序。pascal语言
最佳答案
- 五星知识达人网友：不如潦草
- 2021-02-14 16:36
program sort(input,outupt);
var
i,j,n,t:longint;
a,num:array[0..100]of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
num[i]=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>a[j])
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
t:=num[i];num[i]:=num[j];num[j]:=t;
end;
for i:=1 to n do
writeln(a[i],' ',num[i]);
end.
var
i,j,n,t:longint;
a,num:array[0..100]of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
num[i]=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>a[j])
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
t:=num[i];num[i]:=num[j];num[j]:=t;
end;
for i:=1 to n do
writeln(a[i],' ',num[i]);
end.
全部回答
- 1楼网友：怙棘
- 2021-02-14 17:05
program kp1;
var a:array[1..1000]of integer; n,z:integer;
procedure sort(l,r: longint);
var i,j,x,y: longint;
begin
i:=l; j:=r; x:=a[(l+r) div 2];
repeat
while a[i]
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯