[poli-smen]

Сообщение от Guneska

Какое бы я число не ставила в значение константы n, получается 0. Это правильно?
По второй задаче не получается вывести матрицу, получается просто число "66"

Нужно делать как-то так:

Код:

  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i = j then a[i, j] := n - i + 1 else a[i, j] := 0;
      Write(a[i, j]);
    end;
    Writeln;
  end;