Question

Определить номер нулевых элементов массива а 15 которые стоят после максимального элемента

Answer 1

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

begin
  var a:=ArrRandom(15,-10,10); a.Println;
  var imax:=a.IndexMax;
  var s:=a.Select((x,i)->(x,i)).Where(xi->(xi[1]>imax) and (xi[0]=0));
  if s.Count>0 then begin
    Write('Номера искомых элементов: '); s.Select(xi->xi[1]+1).Println
    end
  else Writeln('Искомые элементы отсутстуют')
end.

Пример
-1 3 1 -10 5 9 8 -7 0 -6 -5 3 3 0 4
Номера искомых элементов: 9 14