Turbo Pascal中数组的随机数的问题

来源：百度知道 编辑：UC知道 时间：2024/09/22 22:22:41
一个程序的一部分：
……
var a:array[1..10] of integer;
i:integer;
……
for i:=1 to 10 do
randomize;
a[i]:=random(10);
……
运行后没有报错，但数组a全部是一个数（可以产生随机数，但都是一个数）。请问这是为什么？
打错了，for后面还有begin和end

randomize只要在最前面执行一次即可

Var
a: array [1..10] of integer;
i: integer;
Begin
randomize;
for i:=1 to 10 do
a[i] := random(10);
for i:=1 to 10 do
write(a[i], ' ');
End.

randomize只要在最前面执行一次即可
试过了，一楼得很对！

试过了，一楼得很对！