Дана матрица A [N,n] заполнить матрицу следующим образом в элементы матрицы лежащие **...

Question

Дана матрица A [N,n] заполнить матрицу следующим образом в элементы матрицы лежащие на главной и на побочной диагонали плместить1. В элементы матрицы лежащие над диагонали и под диагонали поместить 2. В остальныеиэлементы матрицы поместить 0.

Answer 1

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

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