Question

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

Answer 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 (a>max) then

        begin

        max:=a;

  count:=1;

  end

 else

         begin

         if (a = max) then

        count:=count+1;

  end

     end;

writeln(count);

end.

Answer 2

Для решения этой задачи можно использовать следующую программу на языке Python:

pythonCopy code
def main():
    n = int(input("Введите количество чисел в последовательности: "))
    numbers = []

    # Ввод чисел в последовательность
    for i in range(n):
        num = int(input("Введите число: "))
        numbers.append(num)

    # Находим максимальное значение в последовательности
    max_value = max(numbers)

    # Считаем количество самых больших чисел в последовательности
    count = numbers.count(max_value)

    print("Количество самых больших чисел в последовательности:", count)


if __name__ == "__main__":
    main()

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