Дан одномерный массив b(10). заполнить массив случайными числами из промежутка [0; 1) и вывести его на экран в строку.

Var b:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
b[i]:=random(100)/100;
write(b[i],' ');
end;
end.