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

[Bard]

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

[КМА]

Вот то что получилось у меня, пока только для положительных чисел, по сути доработка твоей идеи.

CONST n=9;

VAR
    count: array [1..n] of word;
    s: longInt;
    i, j, k: byte;
    flag: boolean;

BEGIN
     {вводим 9 чисел и считаем их итоговую сумму} 
     s:=0;
     for i:=1 to n do
      begin
       write (i,' ->');
       readLn (count[i]);
       s:=s+count[i]
      end;
     
     flag:=false;
     i:=0;
     {если итоговая сумма оказалась меньше 100, значит выходим} 
     if s<100
        then flag:=true;
     {вычитаем из итоговой суммы 2 других элемента, таким образом по завершению в i и j номера лишних элементов}  
     while (not flag) and (i<=n) do
      begin
       inc (i);
       j:=i;
       while (not flag) and (j<=n) do
        begin
         inc (j);
         if (s-count[i]-count[j])=100
           then flag:=true
         end
      end;

     if (i=0) or (not flag)
        then writeLn ('no variants')
        else
         begin
          for k:=1 to n do
           if (k<>i) and (k<>j)
              then write (count[k], ' ');
          writeLn ('  obrazuiyt symmy 100')
         end;

END.

[Lapp]

КМА, а знаешь, что нужно сделать, чтобы работало для всех чисел, а не только для положительных? Как делают скульпторы - отсечь лишнее..
Убери вот эти строки:

     {если итоговая сумма оказалась меньше 100, значит выходим} 
     if s<100

Тут проверка i тоже лишняя:

     if (i=0) or (not flag)