Question

Сформировать двумерный массив, у которого значения элементов равны 1, если индекс этого столбца четный, и равны 0, если индекс столбца нечетный.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');

 var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);

 a.Println(2)

end.