// 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.
// Внимание! Если программа не работает, обновите версию!
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