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

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

Question

Информатика

Перпетуя

7 октября, 02:47

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

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

+2

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