даю 30 баллов
Напишите программу, которая в последовательности натуральных чисел определяет
количество самых больших чисел в последовательности. Программа получает на вход количество
чисел в последовательности, а затем сами числа.
Количество чисел не превышает 100 Введённые числа по модулю не превышают 300
Программа должна вывести одно число: количество самых больших чисел в последовательности.
Пример работы программы:
Входные данные
5 Выходные данные 2
15
27
24
12
27

Ответ

Автор - arseney0cs

Pascal:

var a,n,count,max,i:integer;

begin

count :=0;

max:= -1;

readln(n);

for i:=1 to n do

begin

readln(a);

if (a>max) then

begin

max:=a;

count:=1;

end

else

begin

if (a = max) then

count:=count+1;

end

end;

writeln(count);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.