编辑代码

program main
	integer, dimension(5, 3) :: A !输入数组
    integer :: sum  !求和
    integer :: product !求积
    read(*,*) A
    sum = 0  
    do i = 1, 5  
        do j = 1, 3  
            sum = sum + A(i, j)  
        end do  
    end do  
    print *, sum
    product = 1  
    do i = 1, 5  
        do j = 1, 3  
            product = product * A(i, j)  
        end do  
    end do  
    print *, product
end