Fish、のTorres 2010-07-13 08:17:00
点我顶贴
收藏
删除
最后一个点过不了
program fish;
var a:array[1..500000]of integer;
s,x,n,i,j,xx:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
s:=0;
for i:=1 to n-1 do begin
xx:=0;
for j:=i+1 to n do begin
if xx>a[i] then break;
if a[j]>=xx then begin
s:=s+1;
xx:=a[j];
end
end;
end;
write(s);
end.