题目描述
输入一个整数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
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.