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
K = 0
DO I = 1, N
DO J = 1, L
K = K + 1
IF (K == 5) THEN
K_I = I
K_J = J
END IF
END DO
END DO
DO I = 1, N
DO J = 1, L
IF (A(I, J) < A(N, L)) A(I, J) = A(K_I, K_J)
END DO
PRINT *, '---'
END DO
DO I = 1, N
PRINT *, (A(I, J), J = 1, L)
END DO
END