Ответ: // 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= 201 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -13,6,11