假设有一组数字 1~1000,请将它们随机填充在一个数组中
要求:
1、数组中
2、整个程式运算很快!
william 兄解答
varNums: array[1..1000] of integer;i,j,k,temp: integer;beginfor i := Low(Nums) to High(Nums) doNums[i] := i;for i := 0 to 1000 do begin // 1001 round may not be enoughj := random(High(Nums))+1;k := random(High(Nums))+1;temp := Nums[j];Nums[j] := Nums[k];Nums[k]...[ 查看全文 ]