pascal问题 输入M行N列数组,将第I行于第J行元素对调
答案:1 悬赏:30 手机版
解决时间 2021-12-02 13:36
- 提问者网友：却不属于对方
- 2021-12-02 03:45
pascal问题 输入M行N列数组,将第I行于第J行元素对调
最佳答案
- 五星知识达人网友：蓝房子
- 2021-12-02 05:01
var m,n,i,j,t,k:longint;
a:array[1..1000,1..1000]of longint;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]); //读取；
readln(i,j);
for k:=1 to n do
begin
t:=a[i,k];
a[i,k]:=a[j,k];
a[j,k]:=t;
end; //交换；
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end; //这部分是输出，用于验证结果；
readln;
end.
a:array[1..1000,1..1000]of longint;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]); //读取；
readln(i,j);
for k:=1 to n do
begin
t:=a[i,k];
a[i,k]:=a[j,k];
a[j,k]:=t;
end; //交换；
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end; //这部分是输出，用于验证结果；
readln;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯