Помогите!!! надо решить если не ошибаюсь с помощью массива. Информатика 8 класс. Даю 30...

Question

Помогите!!! надо решить если не ошибаюсь с помощью массива. Информатика 8 класс. Даю 30 баллов

---

Comments

какой язык?

---

есть пример на простом Паскале, но не могу ввести т.к. уже есть два овтет

---

ответа

---

а куда деваться? это же школа..

Answer 1

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

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

Пример
n= 7
 1 0 0 0 0 0 1
 0 1 0 0 0 1 0
 0 0 1 0 1 0 0
 0 0 0 1 0 0 0
 0 0 1 0 1 0 0
 0 1 0 0 0 1 0
 1 0 0 0 0 0 1

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

Пример
n= 6
 0 0 0 0 0 1
 0 0 0 0 2 0
 0 0 0 3 0 0
 0 0 4 0 0 0
 0 5 0 0 0 0
 6 0 0 0 0 0