编译通过...

├ 测试数据 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..30000] of longint;

f:array[0..200] of longint;

i,j,k,n,m,t,max,c:longint;

begin

readln(m,n); c:=1;

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

for i:=1 to 200 do

while f[i]>0 do begin a[c]:=i;c:=c+1;f[i]:=f[i]-1;end;

k:=n;

for i:=1 to n-1 do

begin

for j:=k downto i+1 do

if (a[i]+a[j]

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

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

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

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

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

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

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

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

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

├ 测试数据 10：答案正确... 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

其实如此简单。。

二分图匹配！！！！！这么经典的模型！！！

这个分类一定错了。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program kao2;

Var f:array[1..200] of longint;

i,ans,m,n,w,max,min:longint;

begin

readln(w); readln(n);

max:=0;min:=maxlongint;

for i:=1 to n do

begin

readln(m); inc(f[m]);

if maxm then min:=m;

end;

while max>=min do

begin

if min+max>w then

begin

dec(f[max]);inc(ans);

end

else

begin

dec(f[max]);

if f[min]>0 then dec(f[min]);

inc(ans);

end;

while (f[max]=0)and(max>1) do dec(max);

while (f[min]=0)and(min

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第1450个

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

int main()

{

int t[210]={0},b[30010],w,x,m,ans=0,i,j;

scanf("%d%d",&w,&x);

for(i=0;i

此题用贪心解,但最后两组数据太大,两重循环,就可能超时(看评测机的忙闲),因此同样的程序,提交两次结果可能不一样.如果加上一个剪枝过程,就保证能通过了,即一旦找到两个数的和为上限,停止搜索.

有问题,问问newdeng就知道

为什么我用贪心，27行就能AC？而且0MS秒杀。。。

这是DP吗。。。

PS：貌似不用qsort。。。

编译通过...

├ 测试数据 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..30000] of integer;

w,n,i,j,s:integer;

procedure qsort(h,t:integer);

var

p,i,j:integer;

begin

i:=h;

j:=t;

p:=a[i];

repeat

while (a[j]>p) and (j>i) do j:=j-1;

if j>i then

begin

a[i]:=a[j];

i:=i+1;

while (a[i]

var

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

w,n,i,j,s:integer;

procedure qsort(h,t:integer);

var

p,i,j:integer;

begin

i:=h;

j:=t;

p:=a[i];

repeat

while (a[j]>p) and (j>i) do j:=j-1;

if j>i then

begin

a[i]:=a[j];

i:=i+1;

while (a[i]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

同楼下。 数组一次两用，既桶排又压缩数据量。省时省电 哈哈哈

不过第一次 ij忘了赋初值了 汗-_-!

一次Ac,简简单单！

program group;

const

maxw=200;

var

p:array[5..maxw] of longint;

i,j,k,n,w,ans:longint;

begin

read(w,n);

for i:=1 to n do

begin

read(j); inc(p[j]);

end;

i:=5; j:=w;

repeat

while p[i]=0 do inc(i);

while p[j]=0 do dec(j);

if i+j

program group;

type arr=array[1..30000]of longint;

var i,j:longint;k:longint;

c:longint;x,b:longint;

a:arr;

procedure sort(var r:arr;low,high:longint);

begin if lowx) and(j>i) then

begin a[i]:=a[j];inc(i); end;

while (a[i]>=x)and(i

//纪念品分组 new

#define MAX_N 30000

#include

int w=0, n=0, sol=0;

int things[MAX_N];

int Flag[200+1];

int main()

{

int i=0, j=0, min=0, temp=0;

//输入

scanf("%d", &w);

scanf("%d", &n);

for(i=0; i

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

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

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

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

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

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

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

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

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

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

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

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

去年不会，今年还是一样，哎，我对这种题，真实彻底钝了-_-^

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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