Написать программу определения максимального числа ...

Question

Написать программу определения максимального числа ...

Viktor

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

Есть ответ

12.12.2022

217

Ответ

Answer 1 · 12.12.2022

var x, max: integer;

begin

x:=-1;

max:=-1;

while x0 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.

Написать программу определения максимального числа ...

Ответ

var x, max: integer; begin x:=-1; max:=-1; while x0 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.

var x, max: integer;

begin

x:=-1;

max:=-1;

while x0 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.