budiebuai 2008-09-27 06:04:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 80分
提交日期： 2008-9-27 20:48:00
有效耗时： 484毫秒
测试结果1: 通过本测试点|有效耗时156:ms
测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时47:ms
测试结果5: 通过本测试点|有效耗时47:ms
测试结果6: 通过本测试点|有效耗时47:ms
测试结果7: 输出过长|用户输出数据超过标准输出两倍[标准输出6位|选手输出14位]
测试结果8: 通过本测试点|有效耗时47:ms
测试结果9: 输出过长|用户输出数据超过标准输出两倍[标准输出6位|选手输出15位]
测试结果10: 通过本测试点|有效耗时46:ms
var
f:array[0..100]of int64；
n,m,i,j:longint；
a:array[1..10000]of longint；
begin
read(n,m)；
fillchar(f,sizeof(f),0)；
f[0]:=1；
for i:= 1to n do
begin
read(a[i])；
end；
for i:= 1 to n do
begin
for j:=m downto a[i] do
begin
f[j]:=f[j-a[i]]+f[j]；
end；
end；
write(f[m])；
end.