Написать программу в паскале, используя repeat until. Задача: Дана непустая последовательность, оканчивающаяся нулем. Найти в ней минимальную цифру.

Question

Акакий

23 октября, 04:07

+3

Ответы (1)

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

Софьюшка · Answer 1

var x, min:integer;

begin

min:=999999;

repeat

readln (x) ;

if (min>x) and (x0) then min:=x;

until x=0;

writeln (min) ;

end.