Pascal二维数组题目 急急急！
问题补充：
总时间限制:1000ms内存限制:65536kB
描述
给定一个5*5的矩阵（数学上，一个r×c的矩阵是一个由r行c列元素排列成的矩形阵列），将第n行和第m行交换，输出交换后的结果。
输入输入共6行，前5行为矩阵的每一行元素,元素与元素之间以一个空格分开。
第6行包含两个整数m、n，以一个空格分开。（1<=m,n<=5）输出输出交换之后的矩阵，矩阵的每一行元素占一行，元素之间以一个空格分开。
样例输入
12212
56783
93053
72146
30824
15
样例输出
30824
56783
93053
72146
12212
最佳答案
var
a:array[1..5,1..5] of integer;
i,j,m,n,t:integer;
begin //矩阵交换
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
readln(m,n);
for i:=1 to 5 do
begin
t:=a[m,i];
a[m,i]:=a[n,i];
a[n,i]:=t;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.
最佳答案由网友 whoami1978 提供
其他回答
暂无其它回答!
