这个题的意思是从一个门过的任意两个人的速度差不能超过k，不是相邻的两个不能超过k吧。最先开始想错了。。。觉得最大最小值差值不能超过2*k，交上去了。。。

program P1609;

var

n,k,v,min,max,i :longint;

begin

readln(n,v,k);

max := v;

min := v;

for i := 1 to n-1 do

begin

read(v);

if v > max then max := v;

if v < max then max := v;

end;

if (max - min)

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

orz,n,v,k,i,x:integer;

begin

readln(n,v,k);

for i:=1 to n-1 do

begin

read(x);

if x-v>k then

begin

writeln('No');

exit;

end;

end;

writeln('Yes');

end.

Flag 　　 Accepted

题号 　　P1609

类型(?) 　　其它

通过 　　662人

提交 　　1352次

通过率 　　49%

难度 　　1

提交 讨论 题解

未考虑幻影与幻影的速度差，wa了一次，90分，无语

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

n,v,k,i,j,t,q : longint ;

a : array[0..1500] of longint ;

p : boolean ;

begin

readln(n,v,k) ;

for i := 1 to n-1 do

read(a[i]);

a[0] := v ;

for i := 0 to n-1 do

begin

q := i ;

for j := i to n-1 do

if a[q]

我能说些什么呢……

两个门……第一次90……只能说数据太弱了

两个门两个flag就好了……

......郁闷中......

第一次,沒看見2個幻隱超過k不行,wa2次......

第二次,沒看見有2個門,又wa1次......

最近我幹了什麽損RP的是么,眼睛都跟我過不去...........................

居然提交了4次,龙夫山泉得體都错........

var

n,v,k,i,x:integer;

begin

readln(n,v,k);

for i:=1 to n-1 do

begin

　　read(x);

　　if x-v>k then

　　 begin

　　　　writeln('No');

　　　　exit;

　　 end;

end;

writeln('Yes');

end.

　

Accepted

题号 　　P1609

类型(?) 　　其它

通过 　　500人

提交 　　902次

通过率 　　55%

难度 　　1

好水啊……

这样的只能说数据弱而已。。。。。

我是随机快排过的。。。。

这道题

楼下人的做法太不可思议了

我还是用快排+贪心过的

我无语了!我用的是很傻×的DP..连方程都是错的..居然能AC

没想到居然是考基础语法的题目...

你们的那啥模拟公式我没看懂.

我R BS出题人

加上abs就错 删去就对

那个.........应该是不比他快k就可以.....

var

n,v,k,i,x:integer;

begin

readln(n,v,k);

for i:=1 to n-1 do

begin

read(x);

if x-v>k then

begin

writeln('No');

exit;

end;

end;

writeln('Yes');

end.

　

Accepted

题号 　　P1609

类型(?) 　　其它

通过 　　500人

提交 　　902次

通过率 　　55%

难度 　　1

好水啊……

数据太阴了，注意N可能是基数，知道到底是自己NC,还是LZNC

没什么好说的吧..

涉及不到算法了..

考察一下基本语言功能..

还有比这更水的题目么？

求max,min。

然后 if max-v[i]>k and v[i]-min>k then 输出（‘No’）,halt!

#include

#define max 1500

int main()

{

int n,v,k,i,j,temp;

int data[max];

scanf("%d %d %d",&n,&v,&k);

for(i=1;i

虽然感觉题目有问题.........但是加个快排= =直接AC...........我还没交呢

最近绝对是做了降RP得事了 居然连2*K都忘了。。。

这题有病？用快排就60分，四次202错误，第二测试点过，用冒泡90分，第二测试点错？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

用并查集0ms的路过