Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих...

Question

Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов. Pascal
50баллов

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
  var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
  b.Println
end.

Пример
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13

Comments

не получается