魔法阵

【题目描述】 

昔有人，名斯凯利恩夫·卢克。其英文名乃SkyLYnf·Luke。汝知之何名？曰实，吾亦不知。其有别号曰ylm。何？吾亦不知。汝宜喻之。其乃吾。

他有一个Servant，叫做阿尔托莉雅·潘德拉贡，英文名是Arturia Pendragon，别名是Saber。她的 誓约胜利之剑（Excalibur）比红A的无限剑制厉害多了！（上一题的红A没有Saber厉害）

【题目描述·真】 

有一天，skylynf正在画召唤阵。这时候saber走到了召唤阵中间，告诉skylynf说：“你个菜鸟master，连召唤阵都画错了，赶快重画！”

于是saber拿出了一张写满了召唤阵画法的纸。

请你写一个程序来帮skylynf修改魔法阵，以防他被saber拿剑砍死。

魔法阵是一个n行n列的数列阵。每一个数都小于2147483647。

魔法阵被粗心的skylynf给画歪了，现在saber要让他把整个魔法阵移一下位。

saber给了一个例子：

图1是一个错误的魔法阵。现在我们要像图2这样移位。图3是正确的魔法阵。

图1的第4列，每个数字向下移4位，刚好回到原位，如图3所示。

 

这个模式是这样的：对于第i列的魔法阵来说，把每一个数字向下移i位。对于超过n的，就当做一个环，比如矩阵第四行第一列的数字21，我们就将它行数加一，发现他超过了4，于是就换到了第一行。

现在给你一个n*n的魔法阵，请按照这个规则来输出正确的魔法阵。

Skylynf已经超级口渴了。现在他特别想喝水。请你赶快写完这题好让skylynf去让DTZ倒水给他喝。

【输入描述】 

第一行一个数n（n小于100）

接下来n行，每行n个数。表示skylynf魔法阵。

【输出描述】 

N行，每行n个数，表示正确的魔法阵。

【样例输入】 

4

13 11 33 31

44 4 5 16

40 15 26 29

21 43 13 13

【样例输出】 

21 15 5 31

13 43 26 16

44 11 13 29

40 4 33 13

【数据范围】 

N<=100

Aij<maxlongint< span=""> </maxlongint<>

分析

输入时，把错误的魔法阵放在一个数组里，把正确的魔法阵放在另一个数组里。

注意：对于第  i  列的魔法阵来说，把每一个数字向下移  i   位。

程序：

var
n,i,j:longint;
a,b:array[0..300,0..300]of longint;
begin
    readln(n);
    for i:=1 to n do
    for j:=1 to n do
    read(a[i,j]);
    for j:=1 to n do
    begin
        for i:=n downto 1 do
        if (i+j)>n then b[i+j-n,j]:=a[i,j] else
        if (i+j)=n then b[n,j]:=a[i,j] else
        if (i+j)<n then b[i+j,j]:=a[i,j];
    end;
    for i:=1 to n do
    begin
        for j:=1 to n do
        write(b[i,j],' ');
        writeln;
    end;
end.