ZHENYA_EKZ

PROGRAM ZHENYA_EKZ
REAL A(100,100), B(100,100), A_SUM, B_SUM
INTEGER NA, MA, NB, MB
1 FORMAT(A26)
2 FORMAT(A27)
3 FORMAT(100F7.3)
4 FORMAT(A44, F7.3)
5 FORMAT(A45, F7.3)
PRINT 1, 'ENTER SIZE OF FIRST MATRIX'
READ *, NA, MA
OPEN(1, FILE='MATRIX_A.TXT')
DO I = 1, NA
READ (1, *) (A(I, J), J = 1, MA)
PRINT 3, (A(I, J), J = 1, MA)
END DO
CLOSE(1)
PRINT 2, 'ENTER SIZE OF SECOND MATRIX'
READ *, NB, MB
OPEN(2, FILE='MATRIX_B.TXT')
DO I = 1, NB
READ (2, *) (B(I, J), J = 1, MB)
PRINT 3, (B(I, J), J = 1, MB)
END DO
CLOSE(2)
A_SUM = POSITIVES_SUM(A, NA, MA)
B_SUM = POSITIVES_SUM(B, NB, MB)
PRINT 4, 'SUM OF POSITIVE ELEMENTS OF FIRST MATRIX IS:', A_SUM
PRINT 5, 'SUM OF POSITIVE ELEMENTS OF SECOND MATRIX IS:', B_SUM
END PROGRAM ZHENYA_EKZ

REAL FUNCTION POSITIVES_SUM(A, N, M)
REAL A(100, 100)
POSITIVES_SUM = 0
DO I = 1, N
DO J = 1, M
IF (A(I, J) > 0) POSITIVES_SUM = POSITIVES_SUM + A(I, J)
END DO
END DO
RETURN
END