Question

В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. Нужно заполнить массив при помощи команды random

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-3,3); a.Println;
  var s:=a.Select((x,i)->(x,i)).Where(t->t[0]=0).ToArray;
  if s.Length>0 then begin
    var b:=ArrGen(s.Length,i->s[i][1]+1).ToArray;
    b.Println(',')
    end
  else Writeln('Нет нулевых элементов')
end.

Пример
n= 20
1 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -1
3,6,11