Сформулируйте массив по образцу
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

Var A:array[1..7,1..7] of byte;BeginFor 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.

// 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  0n= 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