关于用delphi实现组合

Question

请问从100个数据中选出三个数据为一组，要求选出的数据组不能重复，实际上也就是排列组合里的C(100,3)怎么用delphi实现！

Answer 1

//假设原始数据为
aaa: array[0..99] of Integer;var
  i, j, k: Integer;
begin
  for i := 0 to 99 - 2 do
    for j : = i + 1 to 99 - 1 do
      for k : = j + 1 to 99 do
        //输出aaa[i], aaa[j], aaa[k]
end;