Найти номер нулевых частей массива а 15 которые стоят после наибольшего

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

Задать свой вопрос
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)-gt;(x,i)).Where(xi-gt;(xi[1]gt;imax) and (xi[0]=0));
  if s.Countgt;0 then begin
    Write('Номера разыскиваемых элементов: '); s.Select(xi-gt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт