Fortran求二维数组最大值

可以使用以下代码来求二维数组的最大值：

program max_2d_array
    implicit none
    integer :: i, j, n, m, max_val
    integer, dimension(100,100) :: a

    ! 读入矩阵的大小 n 和 m
    print *, "请输入矩阵的行数 n 和列数 m："
    read *, n, m

    ! 读入矩阵元素
    print *, "请输入矩阵元素："
    do i = 1, n
        do j = 1, m
            read *, a(i,j)
        end do
    end do

    ! 求最大值
    max_val = a(1,1)
    do i = 1, n
        do j = 1, m
            if (a(i,j) > max_val) then
                max_val = a(i,j)
            end if
        end do
    end do

    ! 输出最大值
    print *, "矩阵中的最大值为：", max_val
end program max_2d_array

其中，`dimension(100,100)` 定义了一个最大为 100 行 100 列的二维数组 `a`，可以根据实际情况进行修改。在程序中，我们首先读入矩阵的大小和元素，并且初始化最大值为第一个元素。然后使用两个嵌套的循环遍历整个矩阵，如果发现当前元素比最大值还要大，就更新最大值。最后输出最大值即可。