Составить программу на языке pascal. используя цикл repeat ... until.

Определить минимальное число из введенной с клавиатуры последовательности положительных чисел, ввод заканчивается отрицательным числом.

Question

Информатика

Марюня

20 февраля, 14:46

Составить программу на языке pascal. используя цикл repeat ... until.

Определить минимальное число из введенной с клавиатуры последовательности положительных чисел, ввод заканчивается отрицательным числом.

+5

Ответы (1)

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

Кара · Answer 1

var

a, min: integer;

begin

min : = 1000;

repeat

readln (a) ;

if (a = 0) then min : = a;

until (a < 0) ;

writeln ('Минимальное число: ', min) ;

end.