zengyanjie1999 2011-08-29 05:45:00
点我顶贴
收藏
删除
有效耗时: 593毫秒
测试结果1: 通过本测试点|有效耗时171ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
测试结果6: 通过本测试点|有效耗时47ms
测试结果7: 通过本测试点|有效耗时47ms
测试结果8: 通过本测试点|有效耗时47ms
测试结果9: 通过本测试点|有效耗时46ms
测试结果10: 通过本测试点|有效耗时47ms
提交代码: view sourceprint?01.program jj;
02.var a:array[1..12]of longint;
03.
n,m,b,i:longint;
04.begin
05.
n:=0;
06.
m:=0;
07.
b:=0;
08.
for i:=1 to 12 do
09.
readln(a[i]);
10.
for i:=1 to 12 do
11.
begin
12.
b:=b+300;
13.
if b<a[i] then
14.
begin
15.
write('-',i);
16.
halt;
17.
end;
18.
b:=b-a[i];
19.
n:=n+(b div 100);
20.
b:=b mod 100;
21.
end;
22.
m:=m+b+n*120;
23.
write(m);
24.end.