shuaige 2016-03-29 04: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