Question

这是一个关于计算机语言pascal的问题

创造一个程序，做出任意一个矩阵，（尺寸由使用者定义），然后显示主要的对角线数值．比如说：1234
5678 ＞5
9123 91
4567 456 就是这样的一个程序．哪位高手可以帮忙，把程序打给我，万分感谢．
1234
5678 >5
9123 91
4567 456

Answer 1

var
matrix:array[1..1000,1..1000]of integer;
n,i,j,k:integer;

begin
readln(n);
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
k:=k mod 9+1;
matrix[i,j]:=k;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(matrix[i,j]);
if i=n shr 1 then
write('>')
else
write(' ');
for j:=1 to i-1 do
write(matrix[i,j]);
writeln;
end;
end.