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

Question

Информатика

Валерьяша

26 апреля, 10:31

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

+1

Ответы (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.