Задание:
Надо решить следующую задачу: Найти минимальное число из 10 случайных чисел. Диапазон генерации случайного числа задается пользователем в начале работы программы. (использовать форматированный ввод/вывод)
Решение:
Var a,k.b: integer; beginb: =10000000; for k: =1 to 10 do beginread (a); if a
Знаете другой ответ?