RosettaCodeData/Task/Random-numbers/DWScript/random-numbers.dw

var values : array [0..999] of Float;
var i : Integer;

for i := values.Low to values.High do
   values[i] := RandG(1, 0.5);