program ghj;

var

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

i,j,n,s:integer;

m:real;

begin

n:=0;

for i:=1 to 12 do readln(a[i]);

for i:=1 to 12 do begin

n:=n+300;

if n > a[i] then n:=n-a[i]

else begin writeln(-i);exit;end;

while n > 100 do begin

s:=s+100;

n:=n-100;

end;

end;

m:= 1.2*s;

writeln((m+n):0:0);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms