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

Question

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

Answer 1

begin

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

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

end.

---