Question

Сформулируйте массив по образцу
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0

Answer 1

Var A:array[1..7,1..7] of byte;
Begin
For var i:= 1 to 7 do
   Begin
   For var j:= 1 to 7 do
      Begin
      if (8-i = j) then A[i,j]:= j
      else A[i,j]:=0;
      Write(A[i,j])
      End;
   Writeln
   End;
End.

Answer 2

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
  a.Println(2)
end.

Примеры
n= 7
  0  0  0  0  0  0  7
  0  0  0  0  0  6  0
  0  0  0  0  5  0  0
  0  0  0  4  0  0  0
  0  0  3  0  0  0  0
  0  2  0  0  0  0  0
  1  0  0  0  0  0  0

n= 12
  0  0  0  0  0  0  0  0  0  0  0 12
  0  0  0  0  0  0  0  0  0  0 11  0
  0  0  0  0  0  0  0  0  0 10  0  0
  0  0  0  0  0  0  0  0  9  0  0  0
  0  0  0  0  0  0  0  8  0  0  0  0
  0  0  0  0  0  0  7  0  0  0  0  0
  0  0  0  0  0  6  0  0  0  0  0  0
  0  0  0  0  5  0  0  0  0  0  0  0
  0  0  0  4  0  0  0  0  0  0  0  0
  0  0  3  0  0  0  0  0  0  0  0  0
  0  2  0  0  0  0  0  0  0  0  0  0
  1  0  0  0  0  0  0  0  0  0  0  0