PROGRAM MATRIZES
   IMPLICIT NONE
   INTEGER MATRIZ(30,30), I, J, N_LIN, N_COL, SOMA, MAIOR

   WRITE(*,*) "DIGITE O NUM. LINHAS DA MATRIZ (MAX 30)"
   READ(*, *) N_LIN
   WRITE(*,*) "DIGITE O NUM. COLUNAS DA MATRIZ (MAX 30)"
   READ(*, *) N_COL
   

   WRITE(*,*) "DIGITE OS ELEMENTOS DA MATRIZ"
   DO I = 1,N_LIN,1
     READ(*,*)(MATRIZ(I,J), J = 1,N_COL,1)
   END DO

   WRITE(*,*) 
   WRITE(*,*) "MATRIZ LIDA"
   DO I = 1,N_LIN,1
     WRITE(*,*)(MATRIZ(I,J), J = 1,N_COL,1)
   END DO

   !SOMA DOS ELEMENTOS DA MATRIZ
   SOMA = 0
   DO I = 1, N_LIN , 1
     DO J = 1, N_COL, 1
       SOMA = SOMA + MATRIZ(I,J)
     END DO
   END DO

   WRITE(*, *)
   WRITE(*, *) "SOMA DOS ELEMENTOS DA MATRIZ: ", SOMA
   
   !SOMA DOS ELEMENTOS DA DIAGONAL PRINCIPAL
   SOMA = 0
   DO I = 1, N_LIN , 1
     DO J = 1, N_COL, 1
       IF(I == J) THEN
          SOMA = SOMA + MATRIZ(I,J)
       END IF   
     END DO
   END DO

   WRITE(*, *) "SOMA DOS ELEMENTOS DA DIAG. PRINCIPAL: ", SOMA

   !SOMA DOS ELEMENTOS DA DIAGONAL SECUNDARIA
   SOMA = 0
   DO I = 1, N_LIN , 1
     DO J = 1, N_COL, 1
       IF(I + J == N_LIN + 1) THEN
          SOMA = SOMA + MATRIZ(I,J)
       END IF   
     END DO
   END DO

   WRITE(*, *) "SOMA DOS ELEMENTOS DA DIAG. SECUNDARIA: ", SOMA
   
   !SOMA DOS ELEMENTOS DA 1a LINHA
   SOMA = 0
   DO J = 1, N_LIN , 1
     SOMA = SOMA + MATRIZ(1,J)
   END DO
   WRITE(*, *) "SOMA DOS ELEMENTOS DA 1a LINHA: ", SOMA

   !MAIOR ELEMENTO DA MATRIZ
   MAIOR = MATRIZ(1, 1)
   DO I = 1, N_LIN , 1
     DO J = 1, N_COL, 1
       IF(MATRIZ(I, J) > MAIOR) THEN
          MAIOR = MATRIZ(I,J)
       END IF   
     END DO
   END DO   
   WRITE(*, *)
   WRITE(*, *) "MAIOR ELEMENTO = ", MAIOR

   !POSICÃO DO MAIOR ELEMENTO
   WRITE(*, *)
   WRITE(*, *) "POSICAO(COES) DO(S) MAIOR(ES) ELEMENTO(S):"
    DO I = 1, N_LIN , 1
     DO J = 1, N_COL, 1
       IF(MATRIZ(I, J) == MAIOR) THEN
          WRITE(*, *)I,J
       END IF   
     END DO
   END DO   
   
   !MAIOR ELEMENTO DA DIAGONAL PRINCIPAL
   MAIOR = MATRIZ(1, 1)
   DO I = 1, N_LIN , 1
     IF(MATRIZ(I, I) > MAIOR) THEN
        MAIOR = MATRIZ(I,I)
     END IF   
   END DO 
   WRITE(*, *)  
   WRITE(*, *) "MAIOR ELEMENTO DA DIAGONAL PRINCIPAL = ", MAIOR
   
   STOP
END PROGRAM MATRIZES