呵呵！彩票抽奖？其实就是随意找出一组1-80的排列。你先把数列按顺序排，然后作n次(比如1000次)随意两个数交换。最终有序数列被打乱了，而且速度会快好多。

谢谢呀,这不失为一个好的办法,但是如果一定用RANDOM来随机产生的,有无办法改善呢

硬要用RANDOM随机产生，你的程序对了。对于1-80，你的程序应该不慢。假如是1-1000，我不敢保证你的程序运行多长时间。

很遗憾的是，我写的东西，很少有人注意去看。我对你写过这样一句话：

===============================
不必要插在每个RANDOM(X)之前，我测试过如果那样的话，获得的随机数列效果会更差。开始用random前调用一下即可。
===============================

这就是你程序慢的原因。我只调你的一个语句randomize，可能很快出结果。原则上跟复杂度没关系，事实去对比，你就知道了。



program test;
type a=array[1..80] of integer;
var
   i,temp:integer;
   data:a;
   check:a;

begin
   randomize;
   for i:=1 to 80 do
   check[i]:=0;
   for i:=1 to 80 do
   begin
   repeat
   temp:=random(81);
   if temp=0 then temp:=1;
   until check[temp]=0;

   data[i]:=temp;
   check[temp]:=1;
   end;
   for i:=1 to 80 do
   begin
   write(data[i]:4);
   if i mod 4=0 then writeln;
   end;
end.

我的机上，运行后是一秒不到出结果。这就是我写那句话的原因。经验之谈，可惜很少人去注意它。

谢谢啦,我之前理解错误了,我以为每调用RANDOM(X)之前使用RANDOMIZE一次,产生的数就会跟之前的不同,呵呵,不好意思,我初学这个东西,了解不多