随即抽取的问题

Question

我用随机函数从100里抽取了10个整数，但是会出现重复，怎么样去除重复的数呢？

Answer 1

在抽取后边的数时；判断一下如果跟前边已经出现的数有重复；则重新抽取ing；

Answer 2

var I,J: integer;
    L1: integer;
    inte: array [0..9] of integer;
    bool1: boolean;
begin
    array[0] := random(100);
    for I:= 1 to 9 do
    begin
      bool1 := true;
      while bool1 do
      begin
        bool1 := false;
        L1 := random(100);
        for J := 0 to I -1 do
        begin
          if L1 = array[J] then
          begin
            bool1 := true;
            exit;
          end;
        end;
      end;
    array[I] := L1 ;    
    end;
end;