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

[-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

[-dila-]

Так намного лучше. Еще раз спасибо!