Question

Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (Циклом с предусловием в PascalABC), на фото программа с постусловием. А решить надо с предусловием.

Answer 1

var x, max: integer;

begin

x:=-1;

max:=-1;

while x<>0 do

 begin

   readln(x);

   if x=0

     then break;

   if x>max

     then max:=x;

 end;

if (max < 1)

 then writeln('Нет чисел, удовлетворяющих условию')

else writeln ('Максимальное число: ', max);

end.