# i:=Num; H[0]:=x;

i:=Num; H[0]:=x; {барьер} while (x &lt; H[i div 2]) do begin H[i]:=H[i div 2]; i:=i div 2; end; {while} H[i]:=x; code:=0; end; {if} end; {insert} function delete_min(var H: array [0..n] of 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} В S[i] хранится значение функции S(i). Здесь и далее в круглых скобках будут записываться аргументы функции, а в квадратных - индексы элементов массива. При этом имя функции и имя массива, в котором хранится значение этой функции, могут

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