讨论 / 为什么错啦!永恒80分。
shuaige 2016-03-29 19:04:05
点我顶贴 收藏 删除
源代码如下:

uses math;

var i,k,n,m,z,s,j:longint;

a:array[1..2000]of longint;

begin

read(m,n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

begin

s:=a[i];

for j:=n downto i+1 do

if (s+a[j]>s)and(s+a[j]<m)then

begin

z:=max(z,s+a[j]);

s:=s+a[j];

end;

end;

writeln(m-z);

end.

测试点1 Accepted / 0ms / 552kB

测试点2 Accepted / 0ms / 552kB

测试点3 Accepted / 0ms / 552kB

测试点4 Accepted / 0ms / 552kB

测试点5 Unaccepted / 在1行选手输出与标准输出存在差异

标准输出

6

选手输出

19

查看更多回复
提交回复