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

Question

Тарасыч

23 октября, 11:38

+2

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