Question

Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел
завершение вводом 0

Answer 1

Program n1;
var a,max: integer;
begin
max:=-1;
readln(a);
while a<>0 do
begin
if a>max then max:=a;
readln(a);
end;
writeln(max);
end.