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

Question

Информатика

Исаакин

24 ноября, 13:45

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

+5

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