Задание:
Составить программу на языке pascal. Используя цикл repeat… until. Определить минимальное число из введенной с клавиатурыпоследовательности положительных чисел, ввод заканчивается отрицательным числом.
Решение:
var a, min: integer; begin min: =1000; repeat readln (a); if (a < min) and (a >=0) then min: =a; until (a < 0); writeln ('Минимальное число: ', min); end.
Знаете другой ответ?