点这里查看
讨论 / 为什么我最后一组数据怎么都过不了啊？
wjw0011996 2009-06-14 05:13:00
点我顶贴 收藏 删除
program p460；

var

n,i,j,num,sum :longint；

a :array[1..500000] of longint；

max :longint；

begin

readln(n)；

readln(a[1])；

sum := 0；

for i := 2 to n do

begin

readln(a[i])；

if a[i] < a[i-1] then inc(sum)

else

begin

max := a[i-1]；

num := 1；

for j := i-2 downto 1 do

begin

if max > a[i] then break；

if a[j] >= max then

begin

max := a[j]；

inc(num)

end；

end；

inc(sum,num)；

end；

end；

writeln(sum)；

end.

第十组超时，可是我自己用cena没事的啊？而且我连骗分都骗不过去。。。

#1 longago@2009-05-21 02:12:00
回复 删除
你有测试数据吗？

用cena能过，可能是你的电脑配置高。

#2 小号一个@2009-05-21 03:01:00
回复 删除
LZ

你哪骗分了？

#3 dislike@2009-05-26 05:55:00
回复 删除
直接

if n=10000... then

writeln()；

inc(rp)

#4 我心如水@2009-06-04 01:48:00
回复 删除
你用的PASCAL吧？PASCAL最后一组数据是过不了的，读入都超时，只能骗。

readln(n)；

if n=500000 then writeln(xx)；

是多少忘记了，等下想起来再发过来吧。

#5 青龙白狐@2009-06-14 05:13:00
回复 删除
哥们，骗吧......

if n>499900 then

begin

writeln(1001827)；

halt；

end；

查看更多回复
提交回复