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.