fortran程序中如何简单的求15个数的和

在fortran,就是有15个数，如何用fortran语言简单的求和？

在Fortran程序中，可以使用一个DO循环结构和一个变量来计算15个数的和。
具体代码如下：

program sum
implicit none
integer :: i, sum = 0
integer, dimension(15) :: nums = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
do i = 1, 15
    sum = sum + nums(i)
end do
write(*,*) "The sum is: ", sum
end program sum

其中，nums是一个包含15个整数的数组，sum是用于存储和的变量。通过DO循环遍历数组中的每个元素，并将其累加到sum中。最后，使用write语句输出计算结果。

sum函数就是用来数组求和的，sum(nums)

• 这有个类似的问题, 你可以参考下: https://ask.csdn.net/questions/7571867
• 你也可以参考下这篇文章：fortran生成随机数
• 除此之外, 这篇博客: Fortran 稀疏矩阵中的 补充 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• 再补充几个编程中遇到的问题：

  • Fortran开辟动态数组的时候，需要给一个指定的长度，然后传参都是传地址，所以对于长度不固定的情况，目前的处理方法就是最简单无脑的给一个足够长的空间，由于传参传的是地址，如果有函数计算A-B并赋给C
    Minus(A, B, C)
    但此时如果需要计算A-B并赋给A，写成Minus(A, B, A)就会出问题，最好还是别这么写
  • Fortran里面声明完一个变量之后如果用的话尽量给它初始化！！！因为Fortran默认会给一些很奇怪的数，不管是integer变量还是real变量！！！
• 以下回答由chatgpt基于相关博客总结生成:

  program sum15
      implicit none
      integer, dimension(15) :: nums = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/)
      integer :: sum
      integer :: i
      sum = 0
      do i = 1, 15
          sum = sum + nums(i)
      end do
      write(*,*) "Sum of 15 numbers is: ", sum
  end program sum15