pascal 按身高排排队
答案:1 悬赏:20 手机版
解决时间 2021-02-16 08:56
- 提问者网友：我是女神我骄傲
- 2021-02-16 04:46
pascal 按身高排排队
最佳答案
- 五星知识达人网友：十鸦
- 2021-02-16 06:14
var a:array[1..51]of longint;
i,j,n,t,k,l:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(t);
for i:=1 to t do begin
readln(k,l);
j:=a[k];
a[k]:=a[l];
a[l]:=j;
end;
for i:=1 to n do write(a[i],' ');
end.
i,j,n,t,k,l:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(t);
for i:=1 to t do begin
readln(k,l);
j:=a[k];
a[k]:=a[l];
a[l]:=j;
end;
for i:=1 to n do write(a[i],' ');
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯