Question

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

Answer 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.