напишите программу ** языке паскаля через цикл while, которая определяет максимальное из...

Question

напишите программу на языке паскаля через цикл while, которая определяет максимальное из введенных чисел с клавиатуры(ввод чисел заканчивается числом 0).

Comments

гиа...

Answer 1

Program red;
var a,max:integer;
begin
max:=-10000;
readln(a);
while a<>0 do begin
if maxreadln(a);
end;
writeln(max);
end.