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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,min:integer; begin; min:=32767; a:=1; while a<>0 do begin; readln(a); if a=0 then break; if a>0 then exit; if min>a then min:=a; end; writeln(min); end.