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

　├ 错误行输出

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

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

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

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

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

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

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

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

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

我囧～～～～～～～～～

痛哭流涕……

我AC了……

555

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

f[0,0]:=0 ..............

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

var f:array[0..100,0..2000]of longint;

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

　　n,i,j,k,sum:longint;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

　　read(a[i]);sum:=sum+a[i];

end;

for i:=0 to n do

　　for j:=1 to sum do f:=-maxlongint;

f[0,0]:=0;

for i:=1 to n do

　　for j:=sum downto 0 do begin

　　 if f

#include

#define MAX(a,b,c) ((a)>(b)&&(a)>(c))?((a)):(((b)>(a)&&(b)>(c))?((b)):((c)))

#define QiGuaiDeZhi -2000000000

#define maxn 100

#define maxh 2000

long n,h[maxn+10],f[maxn+10][maxn*maxh+10];

int main()

{

long i,j,sum;

scanf("%ld",&n);

sum=0;

for(i=1;i

第一次：

编译通过...

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

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

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

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

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

　├ 错误行输出 把“I”写成“i”

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

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

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

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

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

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

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

第二次：

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

我囧～～～～～～～～～

var f:array[0..100,0..2000]of longint;

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

n,i,j,k,sum:longint;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

read(a[i]);sum:=sum+a[i];

end;

for i:=0 to n do

for j:=1 to sum do f:=-maxlongint;

f[0,0]:=0;

for i:=1 to n do

for j:=sum downto 0 do begin

if f

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

DP，方程很重要

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

var a:array[1..1000]of integer;

f,g:array[-1..100,-1..2000]of longint;

i,j,n,max:integer;

function xx(c,b:longint):longint;

begin

if c>b then exit(c)

else exit(b);

end;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]);

max:=max+a[i];

end;

for i:=-1 to n do

for j:=-1 to max*2 do f:=-9999999;

f[0,0]:=0;

for i:=1 to n do

for j:=0 to max do

begin

f:=xx(f,f);

if j>=a[i] then f:=xx(f,f+a[i])

else f:=xx(f,f+j);

end;

if f[n,0]>0 then write(f[n,0])

else write('Impossible');

end.

终于过了…… 兴奋ing……

虽然我不能秒杀.....但是我用一种很容易想到的判断背包A了........

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

经典的地推性地皮

(Invalid img)O,YEAH!!!

AC

居然一次秒杀 ......

我不是大牛 我只是水牛 ..

分清楚情况 看清楚题意 然后就可以做了 ...

哭死了...

第一次偷懒用判断背包......不幸超时一个点

第二次再次偷懒，用改良版判断背包.....不幸错一个点

第三次第三次偷懒，再努力改了一下背包....再次错了

第四次...心灰意冷了....老老实实用正常点的dp.....

我44%的AC率一去不复返.....

if a[i]>=j then f:=max(f,f,f+j)

else f:=max(f,f,f+a[i])

稀里糊涂的动规……

数据太弱，把一个sum div 2写成n居然都过了8个

编译通过...

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

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

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

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

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

　├ 错误行输出

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

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

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

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

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

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

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

TELL ME WHY!!

var f:array[0..100,0..2000]of longint;

n,i,tot,j:longint;

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

function max(x,y:longint):longint;

begin if x>y then exit(x)else exit(y);end;

begin

tot:=0;readln(n);for i:=1 to n do begin read(a[i]);tot:=tot+a[i];end;

FOR I:=0 to n do for j:=0 to tot do f:=-maxlongint;

f[0,0]:=0;

for i:=1 to n do

for j:=tot downto 0 do

if j>=a[i]

then

f:=max(f,max(f+a[i],f))

else

f:=max(f,max(f+j,f));

if f[n,0]=0 then writeln('Impossible')else writeln(f[n,0]);

end.

qhr7263933的方法有错

比如3、4、5这三个数字，可以得出0、3、4、5、7、8、9、12都是TRUE；

按照他的方法答案就是4，实际上答案是IMPOSSIBLE

var

i,j,k,m,n:longint;

d:array[0..100,0..2000]of longint;

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

begin

readln(n);

for i:=1to n do

read(a[i]);

for i:=1to