简单问题，delphi怎样给数组赋值

var i : integerarr1 : array[0..9] of integerarr2 : array[0..9] of charbegin //如果是初始化是给每个元素相同的初值，可以用Fillchar这个函数来

//下次把问题描述清楚

{ 如果

a[5]={2,542,7899,26,11}里面的值是无规律的{就只在这5个值里挑一个的话}

那么我想的到办法只有这样。

你说：数组的大小是10000，

是指b数组(10000个无规律的数成）

（你怎么去设10000个无规律的数?

还是就是指a数组呢，就是你想要10000个数，这些是随机的

这样赋值

只要这样即可：}

Const

NUM = 10000//数组的大小

Var

a: Array[1..NUM] Of integer

i: integer

Begin

Randomize

For i := 1 To NUM Do

a[i] := Random(NUM) + 1

End

---