нахождение суммы, Срочно!!! Опции

[Bard]

Срочно ...пожалуйста помогите мне решить задачу...
из заданных 9 чисел нужно найти 7 из них сумма которых равна 100
Спасибо за ранее...

[klem4]

Вот такой вариант еще:

const
  n = 9;
type
  TArray = array [1..n] of Integer;

function Sum(const arr: TArray; const a, b: Integer): Integer;
var
  i, s: Integer;
begin
  i := 1; s := 0;
  while (i <= n) and (s <= 100) do begin
    if (i <> a) and (i <> b) then inc(s, arr[i]);
    inc(i);
  end;
  Sum := s;
end;

var
  x: TArray = (25, 10, 25, 29, 1, 98, 5, 5, 56);
  a, b: Integer;
  flag: Boolean;

begin
  a := 1; flag := false;

  while (a <= n - 1) and not(flag) do begin
    b := a + 1;
    while (b <= n) and not(flag) do begin
      flag := Sum(x, a, b) = 100;
      if not(flag) then inc(b);
    end;
    if not(flag) then inc(a);
  end;

  if a <= n - 1 then writeln('Все числа, кроме ', x[a], ' и ', x[b])
   else writeln('Решения нет');
end.