Перебор всех возможных сумм элеметов массива

[Sanakan]

Есть 4 массива(их можно считать как 1 массив). И нужно сделать перебор всех возможных наборов элеметов массива и вывести в RichEdit.

      for i:=0 to Dm.Mer.RecordCount-1 do
         begin
           for j:=i to Dm.Mer.RecordCount-1 do
            begin
              tmp:=tmp+','+FloatToStr(ID_Array[j]);
              tmp1:=tmp1+Ves_Array[j];
              tmp2:=tmp2+Cen_Array[j];
              tmp3:=tmp3+Pot_Array[j];
              sRichEdit1.Lines.Add('ID - '+tmp+' Вес - '+FloatToStr(tmp1)+' Стоимость - '+FloatToStr(tmp2)+' Цена потери - '+FloatToStr(tmp3));
            end;
         tmp:='';
         tmp1:=0;
         tmp2:=0;
         tmp3:=0;
         end;

Результат:
При размерности 3.

ID - ,7 Вес - 0,388 Стоимость - 10000 Цена потери - 20000
ID - ,7,8 Вес - 0,751 Стоимость - 33000 Цена потери - 37000
ID - ,7,8,9 Вес - 0,991 Стоимость - 38000 Цена потери - 60000
ID - ,8 Вес - 0,363 Стоимость - 23000 Цена потери - 17000
ID - ,8,9 Вес - 0,603 Стоимость - 28000 Цена потери - 40000
ID - ,9 Вес - 0,24 Стоимость - 5000 Цена потери - 23000

Но видно что есть еще 1 набор это:
ID - ,7,9 Вес - 0,751 Стоимость - 33000 Цена потери - 37000

Понятно что при размерности 4 будет не хватать 2 набора и тд..Нужна ваша помощь=\ Моя голова уже сломана....

[LeBron]

Не понял, в чем задача. При размерности 4 я вижу только ид 7, 8, 9 (3 штуки)...
Если надо перебрать все варианты по принципу "ид входит или ид не входит", то битовые маски.

[Sanakan]

Немного не правильно написал)
Ну есть 3 элемента в массиве и получается набор:

1
1+2
1+3
1+2+3
2
2+3
3

Хотя мб моя задача решается по другому мб.. Вообще нужно выбрать например из этого списка:

Оптимальный набор мероприятий, который по стоимости укладывается в N сумму денег,с наибольшим весом и наименьшей ценой потери...
Я хотел перебрать всевозможные варианты и выбрать из них самый оптимальный набор.

[LeBron]

Теперь понятней. Если есть специфические ограничения на входные данные, то динамика, а так или евристические алгоритмы, или полный перебор на битовых масках (перебрать все маски от 1 до 2 в степени количества пунктов в списке минус 1). Полного решения за полиномиальное время наука пока не придумала.