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

Question

Информатика

Елюся

30 апреля, 19:34

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

+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.