Question

1. Составьте программу, определяющую максимальное из всех вводимых вами

чисел. Концом ввода чисел является введенное число 0.
Важно!!!- нужно сделать через for или while!

Answer 1

Я так полагаю, что это паскаль. Через while будет попроще это сделать.
Var
a,b:real;
Begin
read(a);
b:=a;
while a<>0 do begin
read(a);
if a>b then b:=a;
end;
writeln(b);
end.