PASCAL语言多种排序算法源程序

PASCAL语言多种排序算法源程序 1.快速排序：procedure qsort(l,r:integer);var i,j,mid:integer;begini:=l;j:=r; mid:=a[