4857:二维数组输出（1） 分数: 1

题目描述

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