Задача №3068. Максимум последовательности. Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение наибольшего элемента последовательности. Числа, следующие за нулем, считывать не нужно. Вход...
Задача №3068. Максимум последовательности.
Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение наибольшего элемента последовательности.
Числа, следующие за нулем, считывать не нужно.
Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
1
7
9
0
выходные данные
9
( задача с сайта informatics.mccme.ru)
Пожалуйста помогите!
Гость
Ответ(ы) на вопрос:
Гость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<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
end.
Не нашли ответ?
Похожие вопросы