Последовательность состоит из натуральных чисел и завершается числом 0 определите значение наибольшего
Последовательность состоит из натуральных чисел и завершается числом 0 определите значение наибольшего
Гость
Ответ(ы) на вопрос:
Гостьvar
max,a:real;
begin
readln(a);
While a<>0 do
begin
if a> max then
max:=a;
readln(a);
end;
writeln('max: ',max);
end.
Не нашли ответ?
Похожие вопросы