dislike 2009-05-18 20:40:00
点我顶贴
收藏
删除
为什么只得十分？
var
a:array[1..500000] of longint；
n,i,j,k,l,max,x,ans:longint；
begin
// assign(input,’rqnoj.in’)；reset(input)；
readln(n)；
for i:=1 to n do
readln(a[i])；
ans:=n-1；
for i:=1 to n-2 do
if a[i]>=a[i+1] then
begin
max:=a[i+1]；
x:=i+2；
if a[x]>=a[x-1] then
repeat
max:=a[x]；
inc(ans)；
// writeln(i:10,x:10)；
inc(x)；
until (a[x]<max)；
end；
//close(input)；
writeln(ans)；
end.