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

Question

Марианыч

23 января, 17:42

+5

Ответы (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.