Составьте программу, определяющую минимальное из 10 случайных чисел.

Ксюша10012007 Ксюша10012007    3   08.08.2019 05:30    0

Ответы
alerokl2313 alerokl2313  04.10.2020 04:24
var
  i,n, min: :integer;
begin
randomize;
min:=999;
  for i:=1 to 10 do
    begin
     n:= 1+ random(900);
     if  n < min then  min := n;
    end;
  Writeln ('min=', min)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика