Question

сформировать квадратную матрицу порядка n по заданному образцу

1 1 1...1 1 1
222...220
333...300
..................
..................
n-1 n-1 0...0 0 0
n 0 0...0 0 0

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
  a.Println(3)
end.

Пример
n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  2  2  2  2  2  2  2  2  2  2  2  2  0
  3  3  3  3  3  3  3  3  3  3  3  0  0
  4  4  4  4  4  4  4  4  4  4  0  0  0
  5  5  5  5  5  5  5  5  5  0  0  0  0
  6  6  6  6  6  6  6  6  0  0  0  0  0
  7  7  7  7  7  7  7  0  0  0  0  0  0
  8  8  8  8  8  8  0  0  0  0  0  0  0
  9  9  9  9  9  0  0  0  0  0  0  0  0
 10 10 10 10  0  0  0  0  0  0  0  0  0
 11 11 11  0  0  0  0  0  0  0  0  0  0
 12 12  0  0  0  0  0  0  0  0  0  0  0
 13  0  0  0  0  0  0  0  0  0  0  0  0

P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!

Answer 2

а по другому не как?

Answer 3

тип где кода много

Answer 4

и без этогоMatrGen

Answer 5

Вы, право, странный... Ну кто будет писать много кода, отлаживать его и т.д.если можно писать мало? Вы даже не написали, на каком языке Вам программа нужна, а теперь желаете еще и какую-то конкретную реализацию. Сразу все пишите в условии - и не будет у Вас таких проблем.