Сформировать квадратную матрицу порядка n по данному образцу: 0 0 0 ... 0 0 1 0 0 0 ... 0...

Question

Сформировать квадратную матрицу порядка n по данному образцу:
0 0 0 ... 0 0 1
0 0 0 ... 0 2 0
0 0 0 ... 3 0 0
...
0 (n-1) 0 ... 0 0 0
n 0 0 ... 0 0 0

Answer 1

Const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,n-i+1]:=i;
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:2);
 writeln;
 end;
end.

Результат:
 0 0 0 0 1
 0 0 0 2 0
 0 0 3 0 0
 0 4 0 0 0
 5 0 0 0 0