... Chuyên đ HSPHN 1999-2004 procedure HeapSort; var r, i: Integer; procedure Adjust(root, endnode: Integer); {Vun cây gc Root thành đng} var c: Integer; Key: TKey; {Bin lu giá tr ... nguyên đ tu bin hn} type TKey = …; {Kiu d liu mt khoá} TArray = array[1 n] of TKey; var k: TArray; {Dãy khoá} Thì nhng thut toán sp xp di đây đc vit di dng th tc sp ... vi k[n-1]. Cu trúc d liu và gii thut 91 Lê Minh Hoàng procedure SelectionSort; var i, j, jmin: Integer; begin for i := 1 to n - 1 do {Làm n - 1 lt} begin {Chn trong...