咋做啊？？？思路是什么？？能写答案出来吗？我急需！！！是先写输出在怎样？？？

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

i,j:integer；

tot,s:integer；

begin

for i:=1 to 12 do read(a[i])；

tot:=0；s:=0；

for i:=1 to 12 do

begin

s:=s+300；

s:=s-a[i]；

if s>=100 then

begin tot:=tot+(s div 100)*100； s:=s-(s div 100)*100 ；end；

if s<0 then begin

writeln('-',i)；

exit；

end；

end；

writeln(tot*1.2+s:0:0)；

end.

简单模拟

！

我用的是FP！！

！！！

我用的是FP！！

（殺魂の魄 是我小号）

FPFPFPFPFPFPFPFPFPFP

求FP题解及思路

回复 地下室卍编程时代卍 的帖子

楼上给的参考难道不是FP吗？

回复 地板卍编程时代卍 的帖子

~

对哦！

！

..................