Помогите решить задачу в паскаль!

Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. Числа, следующие за числом 0, считывать не нужно.

у меня есть такой вариант но нужен еще один

readln (a) ; begin

if a > 0 then

if (max = 0) or (a > max) then

begin

max : = a;

k : = 1 end

else if a = max then

inc (k) ;

end;

until a=0;

write (k) ;

end.

Question

Информатика

Маркси

19 июля, 05:07

Помогите решить задачу в паскаль!

Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. Числа, следующие за числом 0, считывать не нужно.

у меня есть такой вариант но нужен еще один

readln (a) ; begin

if a > 0 then

if (max = 0) or (a > max) then

begin

max : = a;

k : = 1 end

else if a = max then

inc (k) ;

end;

until a=0;

write (k) ;

end.

+4

Ответы (1)

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

Аргентея · Answer 1

Var t, i, x, max:integer;

begin

max:=0; t:=0;

repeat

begin

x:=0;

read (x) ;

if (x>0) and (x=max) then i:=i+1;

if x>max then

begin

max:=x;

i:=1;

end;

t:=t+1;

end;

until (x=1000) or (x mod 1>0) ;

if (x0) then begin i:=-1; writeln ('Нельзя вводить ненатуральные числа') ; end;

if i=0 then writeln ('Введён только ноль') ;

if i>0 then writeln ('Чисел, равных максимуму: ', i) ;

end.