泽泽在英国程序

最新推荐文章于 2023-05-02 22:07:40 发布

SSL_zeng_yu

最新推荐文章于 2023-05-02 22:07:40 发布

阅读量666

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 搜索 pascal 作业

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/54343843

pascal 作业同时被 2 个专栏收录

41 篇文章

订阅专栏

pascal 搜索

7 篇文章

订阅专栏

var a:array[1..100000]of longint;
    n,i,j,x,s,m:longint;
begin
  read(n);
  for i:=1 to n do
  begin
    read(a[i]);
    if a[i]>m then m:=a[i];
  end;

  for i:=1 to m do
  begin
    s:=0;
    for j:=1 to n do
    begin
      if a[j]>=i then s:=s+1 else s:=0;
      if s*i>x then x:=s*i;
    end;
  end;
  write(x);
end.