洛谷 P1090 合并果子

最新推荐文章于 2024-09-27 21:20:54 发布

原创最新推荐文章于 2024-09-27 21:20:54 发布 · 247 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#贪心 #堆

数据结构--堆专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用快速排序算法对数组进行排序的方法，并通过一个贪心算法的例子展示了如何在排序后的数组中逐步合并元素以达到最优解。代码实现了快速排序过程，并通过循环不断选择两个相邻元素进行合并，同时更新数组状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

大佬的做法

自己的做法：

var n,i,ans,a1,k,temp:longint;a:array[1..10001] of longint;
procedure qsort(l,r:longint);
var
    i,j,k,p,temp:longint;
begin
    i:=l;
    j:=r;
    k:=a[l];
    repeat
      while a[i]>k do
        i:=i+1;
      while a[j]<k do
        j:=j-1;
      if (i<=j)
        then
        begin
          p:=a[i];
          a[i]:=a[j];
          a[j]:=p;
          i:=i+1;
          j:=j-1;
        end;
      until i>j;
    if (l<j)
      then qsort(l,j);
    if (l<r)
      then qsort(i,r);
end;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  qsort(1,n);
  while n>1 do
  begin
    dec(n);
    a[n]:=a[n]+a[n+1];
    temp:=a[n];
    ans:=ans+a[n];
    for i:=n-1 downto 1 do
      if a[i]>=temp
        then break
        else begin a[i+1]:=a[i];k:=i;end;
    a[k]:=temp;
  end;
  writeln(ans);
end.