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

E.堆排序：

procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}

var k:integer;