這題有點像合并果子，只不過是合并最大的兩個，并div k，再放進數組里排序。

錯了一個點，求大神看看。

• var a:array[0..10000]of int64; i,j,n,m:longint;procedure kp(l,r:longint); var i,j,mid:longint; beginif l>=r then exit;i:=l;j:=r;mid:=a[(l+r) div 2];repeatwhile a[i]<mid do inc(i);while a[j]>mid do dec(j);if i<=j thenbegina[0]:=a[i];a[i]:=a[j];a[j]:=a[0];inc(i);dec(j);end;until i>j;kp(l,j);kp(i,r); end; beginreadln(n,m);for i:=1 to n doread(a[i]);kp(1,n);//從小到大排序for i:=n-1 downto 1 do//最后面合并begina[i]:=(a[i]+a[i+1]) div m;//記住要div mfor j:=i-1 downto 1 do//合并了還要放進數組排序，插入排序if a[i]<a[j] thenbegina[0]:=a[i];a[i]:=a[j];a[j]:=a[0];end;end;write(a[1]);//最后合并成一個 end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500249.html

總結

以上是生活随笔為你收集整理的运输pascal 90分程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。