题目描述
homework.pas
今天玩得很开心，但也很累，呜呜……，不要呀，我的家庭作业还没完成呀！琦琦苦着脸跟妈妈说：可不可以不做呀？
琦琦今天的家庭作业是：给出m个数，从这m个数中任选n个数相加，可得到一系列的和。例如当m=4，n=3，4个整数分别是3，7，10，11时，可得全部的组合与它们的和为：
3+7+10=20 3+7+11=21 7+10+11=28 3+10+11=24
要求计算出共得到多少个不同的和。
你能帮琦琦完成她的家庭作业吗？
输入
输入文件共2行：
第1行为两个整数m，n(0<n≦m≦20)；
第2行为m个500以内的正整数。
输出
输出文件共1行为得到的不同和的个数。
样例输入
样例1
输入
4 3
3 7 10 11
输出
4
样例2
输入
3 1
0 1 1
输出
2
样例输出
样例3
输入
3 2
1 2 3
输出
3

代做作业是不好的（

超难问题
同楼上

简单，同楼上

穷举吧

递归再去重

我有程序

可是我不用PC

@一起沐浴阳光01

我争取给你吧

0/1背包这么水的题目分分钟AC啊

const maxn=25;
maxv=10005;
var n,m,allv:longint;
opt:array[0..maxv] of boolean;
f:array[0..maxv] of longint;
w:array[0..maxn] of longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x) else exit(y);
end;
procedure init;
var i:longint;
begin
assign(input,'homework.in');reset(input);
assign(output,'homework.out');rewrite(output);
readln(n,m);
allv:=0;
for i:=1 to n do begin read(w[i]); inc(allv,w[i]); end;
end;
procedure main;
var i,j:longint;
begin
fillchar(opt,sizeof(opt),0);
fillchar(f,sizeof(f),0);
opt[0]:=true;
for i:=1 to n do
for j:=allv downto w[i] do
if opt[j-w[i]] then begin opt[j]:=true; if f[j]=m then continue; f[j]:=max(f[j],f[j-w[i]]+1); end;
end;
procedure print;
var i,ans:longint;
begin
ans:=0;
for i:=1 to allv do if (opt[i]) and (f[i]=m) then inc(ans);
writeln(ans);
close(input);close(output);
end;
begin
init;
main;
print;
end.
第二个数据有0，有毒，怎么都没法实现的

第2行为m个500以内的正整数。（0是什么鬼）

20个数直接大暴力呀