{$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.

• .........................pascal,等于不用看了 (1598) frkstyc 2005-08-17 19:37:34
  • 也许各校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