Loan "generous" amounts of money
Clean, 167 bytes

import StdEnv
@n l#m=[p\\p&lt;-[[if(y==u)(x-1)x\\x&lt;-l&amp;y&lt;-[0..]]\\u&lt;-[0..]&amp;v&lt;-l|v&gt;0]|sum[a*b\\a&lt;-[2000,1000,500,200,100,25,10,5,1]&amp;b&lt;-p]&gt;=toInt(n*100.0)]
|m&gt;[]= @n(hd m)=l


Defines the function @, taking Real and [Int].

Try it online!