Fórum Dúvida de Heap (Kruskal) #238824

var
  MeuMinHeap: array[1..10] of Integer;
  NumItems: Integer;

procedure Troca(var X, Y: Integer);
var
  Temp: Integer;
begin
  Temp := X;
  X := Y;
  Y := Temp;
end;

procedure Insere(Item: Integer);
var
  I: Integer;
begin
  Assert(NumItems < Length(MeuMinHeap));
  Inc(NumItems);
  MeuMinHeap[NumItems] := Item;
  I := NumItems;
  while (I > 1) and (MeuMinHeap[I] < MeuMinHeap[I div 2]) do
  begin
    Troca(MeuMinHeap[I], MeuMinHeap[I div 2]);
    I := I div 2;
  end;
end;