回帖：const maxn=20000;
var i,k,n:integer;
sum,temp,temp1:longint;
a:array[1..maxn] of longint;
ha,hb,tb:integer;
procedure adjust(i,n:integer);
var temp:longint;j:integer;
begin
while i=tb) do begin
k:=k+1;
if ha