Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. ...
Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.
Числа, следующие за числом 0, считывать не нужно.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var n:=ReadInteger; // очередной элемент
var k:=0; // искомое количество
var max:=n;
while n<>0 do begin
if n=max then Inc(k)
else
if n>max then begin max:=n; k:=1 end;
n:=ReadInteger;
end;
Writeln('Число ',max,' встретилось ',k,' раз(а)')
end.
Тестовое решение:
4
6
2
6
1
6
9
3
9
5
2
0
Число 9 встретилось 2 раз(а)
Не нашли ответ?
Похожие вопросы