pascal二维数组矩阵.最好每一步都有过程.

var
i,n:integer;
begin
readln(n);
for i:=1 to n*n do
if i mod n=0 then writeln(i:3)
else write(i:3);
end.
再问： 可以再加点过程么？O(∩_∩)O谢谢！ for i:=1 to n*n do
if i mod n=0 then writeln(i:3)
else write(i:3);
这几句再说明一下
再答： 从题目推测，是要输出方阵，方阵的阶数为n，则方阵的元素个数为n×n，方阵中的元素是按顺序排列的自然数列。
题目的关键是当输出到第n列时要换行，程序中用“ if i mod n=0 then writeln(i:3)
”实现换行。