значение получившегося выражения должно быть равно заданному целому S

[Elm0]

Посмотрите плз задачку.я для общего развития серого вещества, решаю задачки.Вот тормознул на этой:

Даны N целых чисел X1, X2,...,Xn. Расставить между ними + и - так ,чтобы значение получившегося выражения было равно заданному целому S.
ПРИМЕР
Вводим N=3 S=10
вводим 3 значения N- 15 ,25,30
Вывод 15+25-30=10

Если комбинацию найти нельзя, то выводим соответств. сообщение.

Алгоритм я понимаю но...не понимаю как осуществить перебор в массиве...может case'ом?

[Tayfun]

может case'ом?

Только количество чисел заранее неизвестно... Case тут не поможит, тут рекурсионный перебор надо делать... Сейчас покумекаю... Может код скину!

[Alex21]

Смотрим здесь. Страница 47-48.

[Tayfun]

Смотрим здесь. Страница 47-48.

Интересный вариант... Предлагаю альтернативный.
Отказался от рекурсии, можно гораздо проще

program znaki;
uses crt;
const max_n=100;
var
ss,s:integer;
a:array[1..max_n] of integer;
b:array[1..max_n] of byte;
n,i,j:integer;
bb:boolean;
begin
clrscr;
randomize;
writeln('VVEDITE KOLICHESTVO CHISEL');
readln(n); {Вводим количество эллементов массива}
for i:=1 to n do begin {Случайным образов генерируем массив [0;99]}
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln('VVEDITE CHISLO');
readln(s); 
while b[n]=0 do begin {Цыкл влючающий в себя генератор знаков и проверку. Получаеться ли нужное нам число}
b[1]:=b[1]+1;{* Здесь происходит генерация знаков}
for i:=1 to n-1 do
if b[i]>1 then begin b[i]:=b[i]-2; b[i+1]:=b[i+1]+1; end; {*}

ss:=a[1]; {$Находим разность или сумму чисел массива}
for i:=1 to n-1 do
case b[i] of
0:ss:=ss-a[i+1]; {Нулю соответствует знак минус, а еденица плюсу}
1:ss:=ss+a[i+1];
end;

if ss=s then begin bb:=true; {Проверяем получаеться ли наше число, если да, то выводим всю последовательность со знаками}
for i:=1 to n-1 do begin write(a[i]);
case b[i] of
0:write('-');
1:write('+');
end;
end;
write(a[n]);
end;
end;
if bb=false then writeln('PREDSTAVITY NEVOZMOJNO');
readkey;
end.

Основным являеться массив "B" именно в нем происходит генерация знаков. Как уже было сказано, нулю соответствует знак минус, еденича соответствует плюсу. Вот пример работы массива в ходе поиска последовательности
0,0,0,0,0,...,0 -Всеминусы
1,0,0,0,0,....,0 - Один плюс на первой позиции
0,1,0,0,0,....,0 - Один плюс на второй позиции
1,1,0,0,0,....,0 - Два плюса...
0,0,1,0,0,.....,0 -Один, на 3 позиции
................................... ................................
1,1,1,1,1,.....,1 - Все плюсы

[Elm0]

Не могли бы вы выложенный Вами код пополнить комментариями.

Был бы очень благодарен.

[Plague]

Предлагаю ускорить немного ускорить алгоритм

const nm=100;
var a:array[0..nm] of integer;
    b:array[1..nm] of boolean;
    i,j,n,s,ss:integer;
    timeold:longint;
    timereal:longint absolute $40:$6c;
    bb:boolean;
begin
  readln(n);
  randomize;
  for i:=1 to n do
    begin
      a[i]:=round(random*100)+1;
      write(a[i], ' ');
    end;
    writeln;
  readln(s);

timeold:=timereal;

  fillchar(b,sizeof(b),false);
  bb:=faLse;
  repeat
    for i:=1 to n do
      begin
        if not b[i] then
          begin
            b[i]:=true;
            break;
          end
        else b[i]:=false;
      end;

    ss:=a[0];
    for i:=1 to n do
      case b[i] of
        true:ss:=ss+a[i];
        false:ss:=ss-a[i];
      end;

    if s=ss then
     begin
       write(a[1]);
       bb:=true;
       for i:= 1 to n do
         begin
           case b[i] of
             true:write('+');
             false:write('-');
           end;
           write(a[i]);
         end;
       writeln;
     end;
  until b[n];
  if not bb then writeln('no');
writeln((timereal-timeold)/100:0:3);
end.

[Elm0]

Большое всем спасибо за помощь!!!