# var Num:integer;

var Num:integer; var code:integer):integer; var i,child:integer; last_el:element; stop:boolean; begin if Num=0 then code:=2 else begin delete_min:=H[1]; last_el:=H[Num]; Num:=Num-1; i:=1; stop:=False; while (2*i&lt;=Num) and (not stop) do begin child:=2*i; if child &lt; Num then if H[child+1] &lt; H[child] then child:=child+1; if last_el &gt; H[child] then begin H[i]:=H[child]; i:=child; end else stop:=True; end; {while} H[i]:=last_el; code:=0; end; {if} end; {delete_min} Трудоемкость операции добавления определяется количеством выполнения цикла while и не превышает количества уровней кучи, которое равно Log (Num) Применение бинарных куч. Понятно, что такая структура очень полезна. Ее можно использовать для сортировки элементов. Для этого достаточно вначале добавить каждый из них в кучу, а затем поочередно удалить. Трудоемкость сортировки, реализованной таким образом, определяется трудоемкостью операций добавления и удаления

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа