C.选择排序：procedure sort;var i,j,k:integer;

四、排序算法 A.快速排序： procedure qsort（l,r:integer);var i,j,mid:integer;

四、排序算法 A.快速排序： procedure qsort（l,r:integer);var i,j,mid:integer;

C.选择排序：procedure sort;var i,j,k:integer;

D. 冒泡排序procedure bubble_sort;var i,j,k:integer;

D. 冒泡排序procedure bubble_sort;var i,j,k:integer;

E.堆排序：procedure sift（i,m:integer);{调整以i为根的子树成为堆,m为结点总数}var k:integer;