Question

Надо решить следующую задачу:
Найти минимальное число из 10 случайных чисел. Диапазон генерации случайного числа задается
пользователем в начале работы программы.
(использовать форматированный ввод/вывод)

Answer 1

var a,k.b:integer;
begin
b:=10000000;
for k:=1 to 10 do begin
read(a); if a<b then b:=a end;
write(b);
end.