P1089 津津的储蓄计划

题目描述

津津的零花钱一直都是自己管理。每个月的月初妈妈给津津300元钱，津津会预算这个月的花销，并且总能做到实际花销和预算的相同。

为了让津津学习如何储蓄，妈妈提出，津津可以随时把整百的钱存在她那里，到了年末她会加上20％还给津津。因此津津制定了一个储蓄计划：每个月的月初，在得到妈妈给的零花钱后，如果她预计到这个月的月末手中还会有多于100元或恰好100元，她就会把整百的钱存在妈妈那里，剩余的钱留在自己手中。

例如11月初津津手中还有83元，妈妈给了津津300元。津津预计11月的花销是180元，那么她就会在妈妈那里存200元，自己留下183元。到了11月月末，津津手中会剩下3元钱。

津津发现这个储蓄计划的主要风险是，存在妈妈那里的钱在年末之前不能取出。有可能在某个月的月初，津津手中的钱加上这个月妈妈给的钱，不够这个月的原定预算。如果出现这种情况，津津将不得不在这个月省吃俭用，压缩预算。

现在请你根据2004年1月到12月每个月津津的预算，判断会不会出现这种情况。如果不会，计算到2004年年末，妈妈将津津平常存的钱加上20％还给津津之后，津津手中会有多少钱。

输入输出格式

输入格式：

输入文件save.in包括12行数据，每行包含一个小于350的非负整数，分别表示1月到12月津津的预算。

输出格式：

输出文件save.out包括一行，这一行只包含一个整数。如果储蓄计划实施过程中出现某个月钱不够用的情况，输出-X，X表示出现这种情况的第一个月；否则输出到2004年年末津津手中会有多少钱。

注意，洛谷不需要进行文件输入输出，而是标准输入输出。

输入输出样例

输入样例#1：

29023028020030017034050 90 80 20060 

输出样例#1：

-7 

输入样例#2：

290 230 280 200 300 170 330 50 90 80 200 60 

输出样例#2：

1580

var

a:array[1..20]of longint;

i,m,x,y,c:longint;

cc,ans:real;

begin

for i:=1 to 12do

begin

read(a[i]);

m:=m+300;

x:=m div100;//还剩几百

y:=a[i] div100;//要花几百

if (x>y) and (m-a[i]>99) then while m>a[i]+100do//判断是否足够钱去存，并且确保存了之后还有钱去花

begin

c:=c+100;

m:=m-100;

end;

m:=m-a[i];

if m<0then begin//输出第几个月没钱

write(-i);

halt;

end;

end;

cc:=c*1.2;

ans:=m+cc;

writeln(ans:0:0);

end.