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没事的啊?而且我连骗分都骗不过去。。。
#4 我心如水@2009-06-04 01:48:00
11795
回复
删除
你用的PASCAL吧?PASCAL最后一组数据是过不了的,读入都超时,只能骗。
readln(n);
if n=500000 then writeln(xx);
是多少忘记了,等下想起来再发过来吧。
#5 青龙白狐@2009-06-14 05:13:00
11944
回复
删除
哥们,骗吧......
if n>499900 then
begin
writeln(1001827);
halt;
end;