даю 30 баллов
Напишите программу, которая в последовательности натуральных чисел определяет
количество самых больших чисел в последовательности. Программа получает на вход количество
чисел в последовательности, а затем сами числа.
Количество чисел не превышает 100 Введённые числа по модулю не превышают 300
Программа должна вывести одно число: количество самых больших чисел в последовательности.
Пример работы программы:
Входные данные
5 Выходные данные 2
15
27
24
12
27
Напишите программу, которая в последовательности натуральных чисел определяет
количество самых больших чисел в последовательности. Программа получает на вход количество
чисел в последовательности, а затем сами числа.
Количество чисел не превышает 100 Введённые числа по модулю не превышают 300
Программа должна вывести одно число: количество самых больших чисел в последовательности.
Пример работы программы:
Входные данные
5 Выходные данные 2
15
27
24
12
27
Answers & Comments
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.