Fortran程序中,如何对一列数据每3000个为一组求平均?求达人帮忙!!!

2024-12-29 09:10:35
推荐回答(1个)
回答1:

do i=1,n
if(mod(i,3000)==0)then
summ=0
do j=(i-2999),i
summ=summ+a(j)
enddo
print*,summ/3000.0
endif
enddo