void Seleccion(Dato A[],
int N){
int Indice_menor;
Tipo_Clave Clave_menor;
for (i=0;i<N-1;i++){
Indice_menor=i;
Clave_menor=A[i].clave;
for (j=i+1;j<N;j++)
if
(A[j].clave<Clave_menor){
Clave_menor=A[j].clave;
Indice_menor=j;
}
Intercambiar(A[i],A[Indice_menor]);
}
}