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

Question

Геннадия

20 мая, 09:05

+3

Ответы (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.