Вводится последовательность натуральных чисел. Ноль - при-знак конца. Подсчитайте, сколько раз в этой последовательности встре-чается максимальное число, и выдайте полученный результат.

Question

Информатика

Тоша

7 февраля, 07:58

Вводится последовательность натуральных чисел. Ноль - при-знак конца. Подсчитайте, сколько раз в этой последовательности встре-чается максимальное число, и выдайте полученный результат.

+4

Ответы (1)

Знаете ответ на вопрос?

Наркис · Answer 1

Program gt;

var a, max, s:longint;

begin

a:=-1;

max:=-100;

s:=0;

while a0 do

begin

read (a) ;

if (a=max) then s:=s+1;

if (a>max) then begin

max:=a;

s:=1;

end;

end;

writeln (s) ;

end.