Получить квадратную матрицу порядка n:

k 0

n-1 n

n-2 n-1 n

...

1 2 3 ... n

Может кто знает как написать программу в Паскале?

Const n=6;

var a:array[1 ... n, 1 ... n] of integer;

i, j:integer;

begin

for i:=1 to n do

for j:=1 to i do a[i, j]:=n-i+j;

for i:=1 to n do

begin

for j:=1 to n do write (a[i, j]:3) ;

writeln;

end;

end.

Пример:

6 0 0 0 0 0

5 6 0 0 0 0

4 5 6 0 0 0

3 4 5 6 0 0

2 3 4 5 6 0

1 2 3 4 5 6