Числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чисел

нарисуйте блок схему

Question

Информатика

Тимофеич

13 декабря, 21:24

Числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чисел

нарисуйте блок схему

+1

Ответы (2)

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

Феозва · 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.

Исакий · Answer 2

{с клавиатуры вводится число 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.

Числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чиселнарисуйте блок схему

Числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чисел

нарисуйте блок схему