如何在FreePascal中生成50個隨機數列表（0到100之間）

Question

有人可以幫助我在FreePascal中生成50個隨機數列表（0到100之間）嗎？

Answer 1

假設你想有一個50個整數的數組，你可以使用下面的代碼。首先使用Randomize程序初始化隨機數發生器。然後它從低索引到高索引迭代陣列（相反，您也可以使用常量範圍for I := 0 to 49 to），並通過使用Random函數爲該陣列的每個元素生成0到100範圍內的隨機數。 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;