Как создать одномерный динамический массив, заполненный случайными числами с одним знаком после запятой.

Ответ учителя по предмету Информатика

var i,n: integer;

    a: array of real;

begin

  write(‘n = ‘);  readln(n);

  setlength(a,n);

  randomize;

  for i:=0 to n-1 do

  begin

    a[i]:=random(1000)/10;

    write(a[i],’ ‘);

  end;

end.

n = 10

81.8 24.7 93.9 64.2 39.6 11.1 77 0.3 98.2 42.6