怎么用fortran求平均数和标准差

dimension a(10)

data a/1,2,3,4,5,6,7,8,9,10/

sum=0.0

do 10 i=1,10

10 sum=sum+a(i)

aver=sum/10.0

sum=0.0

do 20 i=1,10

20 sum=sum+(a(i)-aver)**2

st=sqrt(sum/10.0)

write(*,*) aver,st

stop

end

首先定义a[i]=1是初始化数组,全部初始化为1,以后会有0,而1则为素数,0就不判弯是.而定义的a[101],定义了101个空间,但不可能有101个素数.

第2:里面的双重循环,主要是这样旅洞:一个数,比如说20,那么就要把,从2~19全部被20除,如果除进掘镇闷,那么就不是素数,那么就标志为0,

if(a[i]!=0)

以后凡是为0的,都不是素数,要不为0而为1才是素数

---