windows平台下fortran编程求解算术平均值

1、关于codeblocks IDE的极速安装

请参考百度经验<<Windows下极速搭建fortran开发环境>>

2、测试的源代码如下：

        implicit none

        integer::i,N

        real*8::x(8)

        real*8::average

        x=[1,2,3,4,5,6,7,8]

        !均值

        average=0

        N=size(x)

        do i=1,N

            average=average+x(i)

        end do

        average=average/N

        print *, "average:",average

3、编译、运行结果如下：