Question

С помощью датчика случайных чисел получить 15 вещественных чисел n , (38 < n < 39)
Задача в borland pascal

Answer 1

var
  i: byte;

begin
  for i := 1 to 15 do
    write(38 + random(), ' ');
end.