4858:二维数组输出(2) 分数: 2

题目描述

输入一个整数N,输出一个N行N列的二维矩阵,矩阵中的元素按列用1——N*N顺序填充。


输入格式

一个整数N(N<=10)


输出

输出N行N列的矩阵,元素之间用一个空格隔开,行末不要有多余的空格。


样例输入

5


样例输出

1 6 11 16 21
2 7 12 17 22
3 8 13 18 23
4 9 14 19 24
5 10 15 20 25
program p4858;
var i,j,n,s:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   s:=i;
   for j:=1 to n do
   begin
   if j=n then writeln(s)
   else
   begin
    write(s,' ');
    s:=s+n;
   end;
  end;
 end;
 writeln;
end.

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826597
个人分类: 编程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭