Последовательность состоит из натуральных чисел и завершается числом 0 определите значение наибольшего

Question

Ермил

11 февраля, 12:00

+1

Ответы (1)

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

Горгония · Answer 1

Var

max, a:real;

begin

readln (a) ;

While a0 do

begin

if a> max then

max:=a;

readln (a) ;

end;

writeln ('max: ', max) ;

end.