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.