Составить программу для нахождения минимального числа в последовательности чисел (только отрицательное число) Последовательность ограниченная нулем

Question

Информатика

Домникия

12 апреля, 00:13

Составить программу для нахождения минимального числа в последовательности чисел (только отрицательное число) Последовательность ограниченная нулем

+2

Ответы (1)

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

Торя · Answer 1

Var a, min:integer;

begin;

min: = 32767;

a:=1;

while a0 do

begin;

readln (a) ;

if a=0 then break;

if a>0 then exit;

if min>a then min:=a;

end;

writeln (min) ;

end.