Дана непустая последовательность не нулевых целых чисел, за которой следует 0 Определить, сколько из них принимает наибольшее значение.

Нужно написать на python не используя max\min

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

begin
  var a:=ReadArrInteger(10);
  Write('Массив A: '); a.Println;
  var s:=a.Where(t->t<0); // последовательность не хранится
  var an:=s.Average;
  Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an);
  var b:=a.Select(t->t<0?an:t).ToArray;
  Write('Массив В: '); b.Println
end.

Пример
49 -5 21 10 22 -23 3 35 -26 -43
Отрицательных элементов: 4, среднее= -24.25
Массив В: 49 -24.25 21 10 22 -24.25 3 35 -24.25 -24.25

оперативная – представляет собой набор программ и алгоритмов, необходимых для работы микропроцессора;кэш-память – это своеобразный буфер между оперативкой и процессором, который обеспечивает оптимальную скорость выполнения системных программ;постоянная – закладывается при изготовлении компьютера на заводе, в нее входят инструменты для контроля за состоянием ПК при каждой загрузке; программы, отвечающие за запуск системы и исполнение основных действий; программы настройки системы;полупостоянная – содержит в себе данные о параметрах настройки конкретного ПК;видеопамять – в ней сохраняются видеофрагменты, которые должны выводиться на экран, является частью видеоконтроллера.