Heapsoi%4)
1 Build-Heap(.-l)
2 for / := lcngth[A\ downto 2
3 do zamień.4| 11 A[i)
4 heap-size[A] := heap-size[A]-\
5 Heapify(..P 1).
W \ kład 11
W
Programowanie komputerów i