Надо решить следующую задачу: Найти минимальное число из 10 случайных чисел. Диапазон генерации случайного числа задается пользователем в начале работы программы. (использовать форматированный ввод/вывод)
Answers & Comments
Veter0k
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.
Answers & Comments
begin
b:=10000000;
for k:=1 to 10 do begin
read(a); if a<b then b:=a end;
write(b);
end.