Profesor: Rodrigo Salas
21
Heapsort
else{
  if(A[r-1].clave>A[2*(r-1)].clave && A[2*(r-1)].clave<=A[2*(r-1)+1].clave){
Intercambia(A[r-1],A[2*(r-1)]);
r=2*r;
}
  else if(A[r-1].clave>A[2*(r-1)+1].clave && A[2*(r-1)+1].clave<A[2*(r-1)].clave){
Intercambia(A[r-1],A[2*(r-1)+1]);
r=2*r+1;
}
  else
r=Ultimo;
}
}