delphi 随机函数的利用random 取10个介于1000与2000之间的随机数，并计算它们的最大，最小值及总和

var
  i,randvalue,maxrandvalue,sum,minrandvalue:integer;
begin
  sum:=0;
  i:=0;
  maxrandvalue:=0;
  while i<10 do begin
     randvalue:=random(2000);
     if (randvalue>=1000)and(randvalue<=2000)then begin
        sum:=sum+randvalue;
        if maxrandvalue<randvalue then maxrandvalue:=randvalue;
        if i=1 then minrandvalue:=randvalue else begin
          if minrandvalue>randvalue then minrandvalue:=randvalue;
        end;
        if i=1 then
          Label2.Caption:=inttostr(randvalue)
        else
          Label2.Caption:=Label2.Caption+'+'+inttostr(randvalue);
        inc(i);
     end;
  end;
  showmessage('最大值：'+inttostr(maxrandvalue)+',最小值:'+inttostr(minrandvalue)+
              ',总和 :'+inttostr(sum));