Подсчитайте за один проход массива, сколько его частей одинаковы наибольшему

Question

Подсчитайте за один проход массива, сколько его частей одинаковы наибольшему

Подсчитайте за один проход массива, сколько его частей равны наибольшему элементу.

Входные данные
На вход программе сначала подается значение n100 количество частей в массиве. В последующей строке входных данных размещены сами элементы массива целые числа, по модулю не превосходящие 30 000.

Выходные данные
Выдайте количество искомых частей массива.

Примеры
входные данные
8
4 3 5 2 5 1 3 5
выходные данные
3

Задать свой вопрос

Шландина Камилла
Информатика
2019-02-26 09:38:53
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

синтаксический разбор предложения : В безмятежном зеркале озера отражались голубизна неба

Складть речення з словом благо ; вдповдальнсть

237 задачаПомогите пожалуйста

какое давление оказывает однородный алюминиевый куб, длина ребра которого равна 0.12м,

Артем решил посчитать , сколько медли он расходует на домашнюю работу

Вставьте глаголы, стоящие в скобках, в предложения в истинном времени (Prsens):

Помогите решить.Необходимо найти площадь фигуры,ограниченной линиями1.y=sin x,y=cos

отметь все слова с безударным гласным звуком в корне. лягушка, бантик,

amp;lt;pamp;gt;сколько наружных углов в треугольнике?amp;lt;/pamp;gt;

упростите выражение 5(4x-y)-3(y+2x)

Александра Бертиева · Answer 1 · 2019-02-26 09:44:21+3:00

Var
A:array[1..100] of integer;
i,M,N,k:integer;
Begin
ReadLn(N);
M:=-30001;
k:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i]gt;M then
       Begin
       k:=0;
       M:=A[i]
       End;
    if A[i]=M then k:=k+1
    End;
WriteLn(k)
End.

О проекте

Подсчитайте за один проход массива, сколько его частей одинаковы наибольшему

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