> {$R-,Q-,S-,I-}
> program pku2559;
> const inputfilename='';
>       outputfilename='';
>       maxn=100005;
> var n,top:longint;
>     answer:int64;
>     height,left,right,stack:array[0..maxn]of longint;
>     buf:array[0..1 shl 18]of byte;
> function read_data:boolean;
> var i:longint;
> begin
>       read(n);
>       if n=0 then read_data:=false else
>       begin
>         read_data:=true;
>         for i:=1 to n do
>            read(height[i]);
>         readln;
>       end;
> end;
> procedure main;
> var i:longint;
>     tmp:int64;
> begin
>        height[0]:=-1;height[n+1]:=-1;
>        top:=1;stack[1]:=0;
>        for i:=1 to n do
>        begin
>           while height[i]<=height[stack[top]] do top:=top-1;
>           left[i]:=stack[top]+1;
>           top:=top+1;
>           stack[top]:=i;
>        end;
>        top:=1;stack[1]:=n+1;
>        for i:=n downto 1 do
>        begin
>           while height[i]<=height[stack[top]] do top:=top-1;
>           right[i]:=stack[top]-1;
>           top:=top+1;
>           stack[top]:=i;
>        end;
>        answer:=0;
>        for i:=1 to n do
>        begin
>           tmp:=int64(right[i]-left[i]+1)*int64(height[i]);
>           if answer<tmp then answer:=tmp;
>        end;
>        writeln(answer);
> end;
> begin
>       assign(input,inputfilename);
>       settextbuf(input,buf);
>       reset(input);
>       assign(output,outputfilename);
>       rewrite(output);
>       while read_data do
>         main;
>       close(input);
>       close(output);
> end.

• 也许各校CS应该开设pascal的课程 (0) sothink 2005-08-17 19:38:51
  • 我们学过，哈哈 (0) sunmoonstar_love 2005-08-17 19:39:15
  • RC都没有pascal了…… (0) frkstyc 2005-08-17 19:39:50
  • 或者NOIP把pascal和basic一并抛弃...统一到C... 就完美了... (0) sothink 2005-08-17 19:39:55
    • basic已经挂了……pascal，这个……其实不把它那些特有的东西放大纲就还是ok的 (0) frkstyc 2005-08-17 19:42:01
• 我的OI母语又被您鄙视了 (0) zhougelin 2005-08-17 19:39:49
  • 140ms？ == O(n)? (0) sunmoonstar_love 2005-08-17 19:40:49
    • 拜托，我是pascal.... (0) zhougelin 2005-08-17 19:49:33
  • 什么话嘛……能使就行，问题我不习惯…… (0) frkstyc 2005-08-17 19:40:58