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
输入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.
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.
pascal问题输入n行m列数据,斜线输出.【输入说明】 第一行是n,以下是n行n列数字矩阵,以上所有数字均为
这个题目啥意思这是一道PASCAL编程题,我看不懂题目的意思,输入矩阵a(m行n列)和矩阵b(n行h列),计算并输出c=
pascal问题 输入M行N列数组,将第I行于第J行元素对调
c语言编程:输入n,输出n行n列的矩阵
编写程序,输入两个正整数m和n,然后输入m行n列矩阵a中的元素,分别求出各行元素之和,并输出.下
(JAVA)输入正整数n,输出有n行n列星号组成的三角形图案.一下是n=4的图案
输入正整数 M 和 N(M,N 均小于 10000) ,输出 M 和 N 之间所有满足下列条件的所有整数:整数的各位数字
c++ acm水题问题输入数据有多组,每组的第一行是两个整数m和n,表示应聘MM的总共的行列数,然后是m行整数,每行有n
输入m行n列的二维数组的值,再按行列形式输出.
求n个数据中的最大值,并输出最大值是第几个,若最大值有多个相同,则输出最前面的一个.第一行输入n,
pascal高精度拆分整数 【问题描述】 输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相
输入m和n,输出m-n之间的所有Fibonacci数,要求使用调用函数fib(n),它的功能是返回第n项Fibonacc