作业帮 > 综合 > 作业

pascal问题输入n行m列数据,斜线输出.【输入说明】 第一行是n,以下是n行n列数字矩阵,以上所有数字均为

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 15:24:51
pascal问题输入n行m列数据,斜线输出.【输入说明】 第一行是n,以下是n行n列数字矩阵,以上所有数字均为
输入n行m列数据,斜线输出.
【输入说明】
第一行是n,以下是n行n列数字矩阵,以上所有数字均为整数.
【输出说明】
一行n×n个整数,每个整数后面有一个空格.
【输入样例】
3
2 4 9
0 7 4
2 8 5
【输出样例】
2 4 0 9 7 2 4 8 5
program Project1;
var
n,i,j,k,l:Longint;
matrix:array[1..100,1..100] of Longint;
begin
Readln(n);
for i := 1 to n do
for j := 1 to n do
Read(matrix[i,j]);
Writeln;
for i := 2 to n * 2 do
begin
if i > n + 1 then j := i - n
else j := 1;
if i < n + 1 then k := i - 1
else k := n;
for l := j to k do
Write(matrix[l,i - l],' ');
end;
Readln;
Readln;
end.