关闭

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

169人阅读 评论(0) 收藏 举报
分类:
题目描述

输入一个整数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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16153次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档