回帖：补上第二题的程序：
program a2(input,output);
var
a:array[1..30000] of integer;
w,n,i,j,s:integer;
procedure qsort(h,t:integer);
var
p,i,j:integer;
begin
i:=h;
j:=t;
p:=a;
repeat
while (a>p) and (j>i) do j:=j-1;
if j>i then
begin
a:=a;
i:=i+1;
while (a