Сочетания.

[Пaвeл]

Помогите пожалуйста!
Дан массив из N элементов. Как из него выбрать M элементов всевозможными вариантами (желательно без повторений).
Чтобы было понятнее, приведу пример:
N=5
M=3
элементы массива: 1 2 3 4 5
варианты:
1 2 3
1 2 4
1 2 5
1 3 4
1 3 5
1 4 5
2 3 4
2 3 5
2 4 5
(Это без повторений (1 2 3 и 1 3 2 - одинаковые варианты))

[Sazary]

Вот оно )

uses crt;
type
mnoz = array[1..100] of integer;
var
M,N : integer;
i : integer;
mas : array[1..100] of integer;
a : mnoz;
ak : integer;

procedure fun(k : integer; b : mnoz; bk : integer; st : string);
 var i,j : integer;
 ts,buf : string;
 fl : boolean;
 begin
 if k=M+1 then
  begin
  writeln(st);
  exit;
  end;

 for i:=1 to N do
  begin
  fl := true;
  for j:=1 to bk do
   begin
   if i = b[j] then
     begin
     fl := false;
     break;
     end;
   end;
  {---}
  if not fl then continue;
  inc(bk);
  b[bk] := i;

  Str(mas[i],buf);
  ts := st;
  ts := ts + ' '+ buf;
  fun(k+1, b, bk, ts);

  end;
 end;

begin
clrscr;
write('Enter N: ');
readln(N);
write('Enter M: ');
readln(M);
if M>N then exit;

for i:=1 to N do
 begin
 write('Enter mas[',i,']: ');
 readln(mas[i]);
 end;
writeln;
writeln('----------');

ak := 0;
fun(1,a,ak,'');

readln;
end.

Пример ввода:

Enter N: 5
Enter M: 3
Enter mas[1]: 1
Enter mas[2]: 2
Enter mas[3]: 3
Enter mas[4]: 4
Enter mas[5]: 5

----------
 1 2 3
 1 2 4
 1 2 5
 1 3 4
 1 3 5
 1 4 5
 2 3 4
 2 3 5
 2 4 5
 3 4 5

[Пaвeл]

Большое спасибо!