Задать вопрос
ИнформатикаИнформатика
28 января, 07:00

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

Входные данные

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

Выходные данные

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

Примеры

входные данные

8

4 3 5 2 5 1 3 5

выходные данные

3

+3
Ответы (1)
  1. 28 января, 09:07
    0
    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]>M then

    Begin

    k:=0;

    M:=A[i]

    End;

    if A[i]=M then k:=k+1

    End;

    WriteLn (k)

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Подсчитайте за один проход массива, сколько его элементов равны максимальному элементу. Входные данные На вход программе сначала подается ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Подсчитайте за один проход массива, сколько его элементов равны максимальному элементу. Входные данные На вход программе сначала подается значение n100 - количество элементов в массиве.
Регистрация Забыл пароль