总结和构建一个声明中的数组

Question

我正在准备一个考试，并通过一些练习题来解决，但不幸的是这些练习题不提供解决方案。我想使用SUM函数，阵列构造和隐含的DO循环此函数来编程：

从N = 2至100点心，（1 + 2 * N）* LOG10（N）

我曾尝试：

WRITE(*,*) SUM(real:: x(99) = (/ ((1+2*N)*LOG10(REAL(N)) , N=2,100) /)) 

但是，所有的IDE说的是，该语句无法识别。我尝试了其他各种方式，但没有运气。

Answer 1

声明中不允许声明x。此外，它不是必需的，您可以直接处理的隐式循环：

program test 
    implicit none 
    integer :: n 
    WRITE(*,*) SUM((/ ((1+2*N)*LOG10(REAL(N)) , N=2,100) /)) 
end program 

这给

18187.0469