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

Question

Составить программу на языке pascal. Используя цикл repeat… until. Определить минимальное число из введенной с клавиатурыпоследовательности положительных чисел, ввод заканчивается отрицательным числом.

Answer 1

75

pavel11

09 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: