QUESTÃO 2 (FORTRAN) - LISTA 8 (MATRIZES) SEGUNDO ESTÁGIO

PROGRAM QUESTAO
!LOCAIS DE MEMORIA
INTEGER A(3,3), B(3,3), MAIORLINHAA(3),MAIORA, MAIORCOLUNAA(3), MAIORLINHAB(3),MAIORB, MAIORCOLUNAB(3), MENORA, MENORB
INTEGER I, J
!ENTRADA DE DADOS
DATA A/1, -3, -2, -1, 2, 1, 1, -1, 0/
DATA B/1, 2, 1, 2, 4, 2, 3, 6, 3/
!CÁLCULOS
MAIORA=A(1,1)
MAIORB=B(1,1)
MENORA=A(1,1)
MENORB=B(1,1)

DO I = 1,3,1
    DO J = 1, 3, 1
          IF (A(I,J) > MAIORA) THEN
                MAIORA = A(I,J)
          END IF
          IF (B(I,J) > MAIORB) THEN
                MAIORB = B(I,J)
          END IF

    END DO
END DO

DO I = 1,3,1
    DO J = 1, 3, 1
          IF (A(I,J) < MENORA) THEN
                MENORA = A(I,J)
          END IF
          IF (B(I,J) < MAIORB) THEN
                MENORB = B(I,J)
          END IF

    END DO
END DO

DO I = 1,3,1
    MAIORLINHAA(I)=A(I,1)
    MAIORLINHAB(I)=B(I,1)
    DO J=1,3,1
        MAIORCOLUNAA(I)=A(1,J)
        MAIORCOLUNAB(I)=B(1,J)
          IF (A(I,J) > MAIORLINHAA(I)) THEN
                MAIORLINHAA(I) = A(I,J)
          END IF
          IF (A(I,J) > MAIORCOLUNAA(I)) THEN
                MAIORCOLUNAA(I) = A(I,J)
          END IF
          IF (B(I,J) > MAIORLINHAB(I)) THEN
                MAIORLINHAB(I) = B(I,J)
          END IF
          IF (B(I,J) > MAIORCOLUNAB(I)) THEN
                MAIORCOLUNAB(I) = B(I,J)
          END IF
    END DO
END DO

!SAIDA DE DADOS
WRITE (*,*) 'MAIOR VALOR DA MATRIZ A', MAIORA
WRITE (*,*) 'MAIOR VALOR DA MATRIZ B', MAIORB
WRITE (*,*) 'MENOR VALOR DA MATRIZ A', MENORA
WRITE (*,*) 'MENOR VALOR DA MATRIZ B', MENORB


WRITE (*,*) '---------------MAIORES VALORES DA LINHA A---------------'
DO I = 1,3,1
        WRITE (*,*) 'MAIOR VALOR DA LINHA', I, MAIORLINHAA(I)
END DO

WRITE (*,*) '---------------MAIORES VALORES DA COLUNA A---------------'
DO I = 1,3,1
        WRITE (*,*) 'MAIOR VALOR DA COLUNA', I, MAIORCOLUNAA(I)
END DO


WRITE (*,*) '---------------MAIORES VALORES DA LINHA B---------------'
DO I = 1,3,1
        WRITE (*,*) 'MAIOR VALOR DA LINHA', I, MAIORLINHAB(I)
END DO

WRITE (*,*) '---------------MAIORES VALORES DA COLUNA B---------------'
DO I = 1,3,1
        WRITE (*,*) 'MAIOR VALOR DA COLUNA', I, MAIORCOLUNAB(I)
END DO
END PROGRAM