даю 30 баллов Напишите программку, которая в последовательности естественных чисел

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

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

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 (agt;max) then

        begin

        max:=a;

  count:=1;

  end

 else

         begin

         if (a = max) then

        count:=count+1;

  end

     end;

writeln(count);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт