Составить программу на языке pascal. используя цикл repeat...until. Определить минимальное число из введенной с клавиатуры последовательности положительных чисел, ввод заканчивается отрицательным числом.
Составить программу на языке 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.
Не нашли ответ?
Похожие вопросы