样例确实...

太无敌了...

怎么写错都可以过...

想复杂了，题出的极不严谨！！

一开始只得了80分

原题没有考虑，先回到路边在到下一棵树比直接去下一棵树省时的情况！！

不知道当年有没有残害考生！！

用快排写了70行...

我靠!!!题目说了贪心!!!我现在才看着!!!4年啊!!!!

编译通过...

├ 测试数据 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[1..20,1..20] of boolean;

v:array[1..20,1..20] of longint;

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

mi,mj,mi1,mj1:longint;

begin

readln(n,m,k);

fillchar(f,sizeof(f),false);

for i:=1 to n do

begin

for j:=1 to m do

begin

read(v);

if v0 then f:=true;

end;

readln;

end;

max:=0;

for i:=1 to n do

for j:=1 to m do

if f then

if max

编译通过...

├ 测试数据 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：答案错误...程序输出比正确答案长..................

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

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

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

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

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

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

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

有知道第5组数据的么？？？？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

不用动归

囧死了,这题我还错了2次-.-

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

强大的样例数据。不管我怎么错，几个错。他总是能出37。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program yyp;

type

abc=record

z,x,y:longint;

end;

var a:array[1..1000]of abc; i,j,k,m,n,l,t,tot:longint;

procedure kp(h,f:longint);

var ii,jj,x:longint; p:abc;

begin

ii:=h; jj:=f; x:=a[(h+f) div 2].z;

repeat

while a[ii].z>x do inc(ii);

while a[jj].z

program hs;

var sss,ss:boolean;

f,e,ma,mi,time,n,i,j,k,w,sum,m:integer;

a:array [1..100,1..100] of integer;

function maxe(var a,b:integer):longint;

begin

if a>b then maxe:=a-b

else maxe:=b-a;

end;

begin

readln(n,m,time);

for i:=1 to n do

begin

for j:=1 to m do read(a);

readln;

end;

sum:=0;

mi:=0;

e:=0;

ss:=false;

sss:=false;

repeat

ma:=0;

for i:=1 to n do

for j:=1 to m do

if (a>ma)then

begin

ma:=a;

w:=j;

k:=i;

end;

a[k,w]:=0;

if (not ss) then

begin

f:=w;

ss:=true;

end;

if ((maxe(w,f))+(maxe(k,e))+k+1

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

老是在+1上出错

哎

WA 5的朋友注意一下.

判断第一个最大点可否走时,若不可走则直接输出0.

纯种水题。。。快排的大于小于号打反了，少2个百分点

·￥·#……%#·#%·#·￥·#！……！·

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

无语ING。。。

readln(m,n,k);

for i:= 1 to m do

begin

for j:= 1 to n do

begin

read(l);

if l > 0 then

begin

inc(o);

re[o,1]:=i; re[o,2]:=j; re[o,3]:=l;

end;

end;

readln;

end;

这样空间要少点。。。

如果采完某处花生回不去路边怎么办