转置二维数组，将二维数组的行转化为对应的列。第一行变为第一列，第二行变为第二列，依此类推。数组行列
发布网友
发布时间：2022-04-23 21:39
共1个回答
热心网友
时间：2023-10-10 16:51
var
a:array[1..5,1..5] of integer;
i,j:integer;
procere swap(var a,b:integer);
var
d:integer;
begin
d:=a;
a:=b;
b:=d;
end;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=i to 5 do
swap(a[i,j],a[j,i]);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]);
writeln;
end;
end.
