编辑代码

PROGRAM Example_1_1
    INTEGER :: a(6) = [1, 2, 3, 4, 5, 6]
    INTEGER :: b(3, 2) = RESHAPE(a, [3, 2])
    INTEGER :: i, j
    REAL :: average1, average2

    ! 计算平均值方法1：按行求平均
    average1 = 0.0
    DO i = 1, 3
        DO j = 1, 2
            average1 = average1 + b(i, j)
        END DO
    END DO
    average1 = average1 / 6.0

    ! 计算平均值方法2：按列求平均
    average2 = 0.0
    DO j = 1, 2
        DO i = 1, 3
            average2 = average2 + b(i, j)
        END DO
    END DO
    average2 = average2 / 6.0

    PRINT *, "数组 b 的值："
    PRINT *, b
    PRINT *, "按行求平均值：", average1
    PRINT *, "按列求平均值：", average2

END PROGRAM Example_1_1