7.3 Método de intercalación 173
Algoritmo Orden_filas
entero n, i, j ,lugar
real A[1000,1000], min, aux
inicio
Leer (n, m) ! dimensiones de la matriz
Repetir Para i ← 1, n
Repetir Para j ← 1,m
Leer (A[i,j])
finpara
finpara
! Comienza el ordenamiento
Repetir Para i ← 1, n-1 ! i es la fila a ordenar
min ← A[i,1]
lugar ← i
Repetir Para j ← i+1, n
Si (A[j,1] < min) entonces
min ← A[j,1] ! cambiar el mínimo
lugar ← j ! posición del mínimo
finsi
finpara
Repetir Para j← 1, m ! intercambiar toda la fila
aux ← A[i,j]
A[i,j] ← A[lugar,j]
A[lugar,j] ← aux
finpara
finpara
Repetir Para i ← 1, n
Repetir Para j ← 1, m
Escribir (A[i,j])
finpara
finpara
Fin