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

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

Question

Информатика

Валеша

28 октября, 04:28

Составить программу на языке 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.