请帮我编个PASCAL随机数程序......

来源：百度知道 编辑：UC知道 时间：2024/06/03 07:12:35
在一个数组里生成15个1到10之间的整数
应该很简单,只是我对随机数程序一窍不通
各位帮帮忙

var i,j:longint;
a:array[1..15] of longint;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=trunc(random*10)+1;
write(a[i],' ');
end;
end.

randomize是准备随机
random是随机出来的数

楼上的好象不是整数吧..

var
a:array[1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(10)+1;
write(a[i]:3);
end;
end.