关闭

4857:二维数组输出(1) 分数: 1

156人阅读 评论(0) 收藏 举报
分类:

题目描述

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


输入格式

一个整数N(N<=10)


输出

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


样例输入

5


样例输出

1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25

program p4857;
var a,n:longint;i:longint;
begin
 readln(n);
 for i:=1 to n*n do
   if i mod n=0 then begin
   write(i);
   writeln;
   end
   else
   write(i,' ');
end.


 

0
0

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