var

a:array[1..12]of integer；

i,f,t:integer；

begin

for i:=1 to 12 do

read(a[i])；

f:=300-a[1]；

if f>=100 then

while f>100 do

begin

t:=t+100；

f:=f-100；

end；

if f<=0 then

begin

write(’-1’)；

exit；

end；

for i:=2 to 12 do

begin

f:=f+300-a[i]；

if f>=100 then

while f>100 do

begin

t:=t+100；

f:=f-100；

end；

if f<=0 then

begin

write(’-’,i)；

exit；

end；

end；

write(f+t*120/100:0:0)；

end.

测试结果1: 通过本测试点|有效耗时172:ms

测试结果2: 测试结果错误.错误结果为:-7

正确结果应为:1580

测试结果3: 通过本测试点|有效耗时78:ms

测试结果4: 通过本测试点|有效耗时63:ms

测试结果5: 通过本测试点|有效耗时63:ms

测试结果6: 通过本测试点|有效耗时47:ms

测试结果7: 通过本测试点|有效耗时46:ms

测试结果8: 通过本测试点|有效耗时62:ms

测试结果9: 通过本测试点|有效耗时63:ms

测试结果10: 通过本测试点|有效耗时62:ms

while f>100 do

改为：while f>=100 do

粗心要人命啊。。

begin

write('-1'); //此处应是“write(-i)"

exit;