Помогите решить задачу в паскаль!!!Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.Числа, следующие за числом 0, считывать не нужно.у меня есть такой вариант но нужен еще один readln(a);beginif a 0 thenif (max = 0) or (a max) thenbegin max := a;k := 1 endelse if a = max then inc(k);end;until a=0;write(k);end.

Question

Помогите решить задачу в паскаль!!!Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.Числа, следующие за числом 0, считывать не нужно.у меня есть такой вариант но нужен еще один readln(a);beginif a > 0 thenif (max = 0) or (a > max) thenbegin max := a;k := 1 endelse if a = max then inc(k);end;until a=0;write(k);end.

wemewh277 · Answer

Var t,i,x,max:integer;beginmax:=0;t:=0;repeatbeginx:=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.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?