Написать программу ввода целых чисел с клавиатуры, пока не будет введён 0

Question

Информатика

Карина

27 августа, 03:19

Написать программу ввода целых чисел с клавиатуры, пока не будет введён 0

+4

Ответы (1)

Знаете ответ на вопрос?

Параскева · Answer 1

{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}

var

min, max, a:real;

begin

readln (a) ;

min:=a; max:=a;

while a0 do

begin

readln (a) ;

if a>max then

max:=a;

if a
min:=a;

end;

writeln ('min: ', min,' max: ', max) ;

end.