разложение числа Опции

[-dila-]

Здраствуйте! Мне тут задачку задали... Вот условие: есть число М и последовательность из N чисел а1,а2,...аN. Надо посчитать, сколькими способами можно представить М в виде суммы этих чисел. Например: М=6, числа: 1,3,5,2, тогда 6=1+5=1+2+3, итого 2 способа.
Вот что получилось у меня:

Код

Program summa;

type tms=array[1..100] of integer;

procedure in_mas(var ms:tms; n,m:integer);
var i:integer;
begin
 for i:=1 to n do
  begin
   writeln('Введите числа, меньшие ',m);
   readln(ms[i]);
  end;
end;

procedure find(var ms:tms; n,m,s,sum:integer; var count:integer);
var i:integer;
begin
 if sum<m then
  begin
   for i:=s to n do
    begin
     sum:=sum+ms[i];
     find(ms,n,m,s,sum,count)
    end;
  end
 else
   if sum=m then
   count:=count+1
end;

var
ms:tms;
n,m,sum,count,s:integer;

begin
writeln('Введите число:');
readln(m);
writeln('Введите кол-во элементов');
readln(n);
in_mas(ms,n,m);
s:=1;
sum:=0;
count:=0;
find(ms,n,m,s,sum,count);
writeln(count);
readln;
end.

Help!!! Помогите сделать так, чтобы прога заработала! Пожалуйста!!!

Сообщение отредактировано: -dila- - 29.09.2005 15:56

[volvo]

Тогда вот так:

var
  n: integer;
  c: array[1..100] of smallint;
  print: boolean;

  diapazon: set of byte;

{
  Здесь сама процедура Find
  ... 
}

var x: byte;
begin
  diapazon := []; { изначально - пустое множество }

  repeat { Для окончания ввода слагаемых ввести 0 }
    Write( 'Следующее слагаемое: ' ); ReadLn(x);

    If x > 0 Then
      diapazon := diapazon + [x]; { и добавляем введенное число к множеству }
  until x = 0;

  n := 6; { <--- Это тоже можно при необходимости считать с клавиатуры }
  find(n,n,1);
  readln
end.

Кстати, Pred(len) это то же самое, что len - 1 :yes: