Дан массив целых чисел, в котором есть нулевые элементы. - вопрос №8166578 от mrcanxer 14.10.2022 10:02

Question

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

mrcanxer · Answer

// 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