如何在FreePascal中生成50个随机数（0到100之间）的列表

Question

有人可以帮我在FreePascal中生成50个随机数（0到100之间）的列表吗？

Answer 1

假设您想要一个包含50个整数的数组，可以使用以下代码。首先，它使用Randomize过程初始化随机数生成器。然后它将数组从其低索引迭代到其高索引（相反，您也可以使用常量范围for I := 0 to 49 to），并且对于该数组的每个元素，通过使用生成0到100范围内的随机数Random功能。 Random函数返回一个随机数，该数字大于或等于0并且小于该函数所采用的唯一参数：

var
  I: Integer;
  IntArray: array[0..49] of Integer;
begin
  Randomize;
  for I := Low(IntArray) to High(IntArray) do
    IntArray[I] := Random(101);
  ...
end;