Se sabe que A (5, 5) es una matriz de números enteros, programa para encontrar el elemento más grande y su posición en las dos diagonales. (escrito en fortran90)

En general, no recomiendo preguntarle a la gente en Baidu todas sus preguntas.

Bien, responderé la mitad de esta pregunta. Espero que escribas tú mismo otra línea diagonal y el código para el doble bucle.

Programa Principal

Implícito Ninguno

Entero, parámetro:: N = 5

Entero:: A(N, N) = (/5,4,3,2,1,7,8,5,4,3,4,5,6,8,3,5,6,8,3,2,4,6,8,3, 2/)

Entero:: iMax, iMaxLoc, iMin, iMinLoc, i, j

iMax = A(1, 1)

iMin = A( 1, 1)

iMaxLoc = 1

iMinLoc = 1

Hacer i = 1, N

si ( A(i, i) gt; iMax ) entonces

iMax = A(i, i)

iMaxLoc = i

finaliza

if ( A(i, i) lt; iMin ) entonces

iMin = A(i, i)

iMinLoc = i

fin si

Fin Do

escribir(*, *) iMax, iMaxLoc, iMin, iMinLoc

Fin del programa principal