Question

Дана квадратичная матрица. Составить программу, которая будет заполнять данную матрицу следующим образом один столбец единицами, второй столбец двойками, третий столбец тройками и т.д.

Answer 1

begin

 var n := ReadInteger('n =');

 var a := MatrGen(n, n, (i, j) -> j + 1).Print

end.