Programación FORTRAN

Creo que no es necesario ordenar primero, el proceso puede ser el siguiente

Ingrese cinco números y guárdelos en la matriz A(5), el número con el mayor valor absoluto MAXNUM, la posición MAXKEY y el número con el valor absoluto más pequeño MINNUM, MINKEY

1 Inicialice MAXNUM=ABS(A(1)), MINNUM=ABS(A(1)), MAXKEY=1. , MINKEY=1

2. Buscar La posición del elemento con el valor absoluto más grande y más pequeño

DO I=2, 5

IF( ABS( A(I)) gt; MAXNUM ) ENTONCES

MAXNUM=ABS(A(I))

MAXKEY=I

ELSEIF ( ABS(A(I) )) lt; MINNUM ) ENTONCES

MINNUM=ABS (A(I))

MINKEY=I

ELSE

ENDIF

ENDDO

3. Absolutamente El número con el valor más grande es A(MAXKEY), y el número más pequeño es A(MINKEY)