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、编译、运行结果如下：