在现实生活中，我们经常遇到硬币找零的问题，例如，在发工资时，财务人员就需要计算最少的找零硬币数，以便他们能从银行拿回最少的硬币数，并保证能用这些硬币发工资。我们应该注意到，人民币的硬币系统是100，50，20，10，5，2，1，0.5，0.2，0.1，0.05，0.02，0.01元，采用这些硬币我们可以对任何一个工资数用贪心算法求出其最少硬币数。
但不幸的是：我们可能没有这样一种好的硬币系统，因此用贪心算法不能求出最少的硬币数，甚至有些金钱总数还不能用这些硬币找零。例如，如果硬币系统是40，30，25元，那么37元就不能用这些硬币找零；95元的最少找零硬币数是3。又如，硬币系统是10，7，5，1元，那么12元用贪心法得到的硬币数为3，而最少硬币数是2。
你的任务就是：对于任意的硬币系统和一个金钱数，请你编程求出最少的找零硬币数；如果不能用这些硬币找零，请给出一种找零方法，使剩下的钱最少。
输入数据：
第1行，为N和T，其中1≤N≤500为硬币系统中不同硬币数；1≤T≤10000为需要用硬币找零的总数。
第2行为N个数值不大于65535的正整数，它们是硬币系统中各硬币的面值。
输出数据：
如T能被硬币系统中的硬币找零，请输出最少的找零硬币数。
如T不能被硬币系统中的硬币找零，请输出剩下钱数最少的找零方案中的所需的最少硬币数。
样例
输入文件名：coin.in
4 12
10 7 5 1
输出文件名：coin.out
2
思路：还是动态规划，设f[i]为所需要的最小硬币数，
转移方程：f[i]=min{f[i-A[j]}+1;
边境条件：f[0]:=0;
//这道题题意还不太清楚，什么是找零???
代码：
var n,m:longint;
f,init:array[-10000..10000]of longint;
i,j:longint;
begin readln(n,m);
for i:=1 to n do
read(init[i]);
fillchar(f,sizeof(f),$7F);
f[0]:=0;
for i:=1 to m do
for j:=1 to n do
if f[i]>f[i-init[j]]+1
then f[i]:=f[i-init[j]]+1;
if f[m]<>2139062143
then writeln(f[m])
else begin i:=m-1;
while f[i]=2139062143 do
dec(i);
writeln(f[i]);
end;
end.