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

Question

Информатика

Юстина

20 декабря, 00:19

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

+2

Ответы (1)

Знаете ответ?

Тама · Answer 1

Var

Max, N: Integer;

I: Integer;

begin

I:=0;

Repeat

ReadLn (N) ;

if I = 0 then

Max:=N

else if N > Max then

Max:=N;

Inc (N) ;

Until (N = 0) ;

WriteLn ('Max = ', Max) ;

end.