0*1 2013-08-09 22:43:00
点我顶贴
收藏
删除
var
i,t,y:integer;
a:array[1..12]of integer;
begin
for i:=1 to 12 do
begin
readln(a[i]);
a[i]:=300-a[i]+y;
if a[i]<0 then begin writeln(-i); halt; end;
if a[i]>=100 then begin t:=t+a[i] div 100; y:=a[i] mod 100; end;
end;
writeln(t*120+y);
end.