найти все возможные суммы из чисел, которые есть в массиве

[unicozz]

Добрый вечер , вынужден просить вашей помощи , так как сам придумать ничего не могу . В общем цель задачи - найти все возможные суммы из чисел , которые есть в массиве .

Допустим массив A - 1,2,3

Возможные суммы : 1,2,3,4,5,6

Буду очень благодарен , если кто-то поможет , а если сможет объяснить суть решения , то буду благодарен вдвойне

[Sciv]

Возможные суммы : 1,2,3,4,5,6

Неправильно. Возможные суммы: 2,3,4,5,6. Нуля в Вашем массиве нет.

[unicozz]

Извиняюсь , суммой можно считать единственное число , то есть один элемент массива тоже сумма

[Sciv]

суммой можно считать единственное число

Единственное число никак нельзя считать суммой. Скорее всего, просто ноль по умолчанию входит в этот массив.

а, например, 1+1 учитывать?
Или найти именно все комбинации сумм?

[Sciv]

const n=3;

type mass=array [1..n] of byte;
     sums=set of byte;

var m: mass;
    s: sums;
    i,j: byte;
    sum,sum1: byte;
begin
  For i:=1 to n do ReadLn(m[i]);
  For i:=1 to n do begin
    sum:=m[i];
    include(s,sum);
    For j:=1 to n-1 do
      if j<>i then begin
      sum:=sum+m[j];
      sum1:=m[i]+m[j];
      include(s,sum1);
      include(s,sum);
    end;
  end;
  ReadLn;
  for i:=0 to 255 do
    if i in s then WriteLn(i);
  ReadLn;
end.

Так как-то. Программу писал на коленке, отладите сами, если будут ошибки