RAZDEL_3

PROGRAM RAZDEL_3
REAL A(100, 100)
READ *, N, L
DO I = 1, N
READ *, (A(I, J), J = 1, L)
END DO
DO I = 1, N
PRINT *, (A(I, J), J = 1, L)
END DO
CALL MAX_MIN(A, N, L)
PRINT *, '---'
DO I = 1, N
PRINT *, (A(I, J), J = 1, L)
END DO
END PROGRAM

SUBROUTINE MAX_MIN(A, N, L)
REAL A(100,100), MAX_A, MIN_A, BUFFER
INTEGER MAX_A_I, MAX_A_J, MIN_A_I, MIN_A_J
MAX_A = A(1, 1)
MIN_A = A(1, 1)
MAX_A_I = 1
MAX_A_J = 1
MIN_A_I = 1
MIN_A_J = 1
DO I = 1, N
DO J = 1, L
IF (A(I, J) > MAX_A) THEN
MAX_A = A(I, J)
MAX_A_I = I
MAX_A_J = J
END IF
IF (A(I, J) < MIN_A) THEN
MIN_A = A(I, J)
MIN_A_I = I
MIN_A_J = J
END IF
END DO
END DO
BUFFER = A(MAX_A_I, MAX_A_J)
A(MAX_A_I, MAX_A_J) = A(MIN_A_I, MIN_A_J)
A(MIN_A_I, MIN_A_J) = BUFFER
RETURN
END SUBROUTINE