implicit real*8 (a-h, o-z) dimension an(60,100),e(60) c 人数:mn mn=5 c 絵の枚数:ne ne=60 do i=1,mn read(*,*) an(i,100) c write(*,*) an(i,100) read(*,*) (an(i,j),j=1,10) c write(*,*) (an(i,j),j=1,10) read(*,*) (an(i,j),j=11,20) read(*,*) (an(i,j),j=21,30) read(*,*) (an(i,j),j=31,40) read(*,*) (an(i,j),j=41,50) read(*,*) (an(i,j),j=51,60) end do c c do j=1,ne do i=1,mn e(i)=an(i,j) end do c call heikin(mn,e,a,s) ! write(*,*) '絵番号:',j ! write(*,*) '平均点:',a ! write(*,*) '標準偏差:',s ! write(*,*) '-----------------------' print'(i3,a,f4.1,a,f6.3)',j,',',a,',',s end do end c subroutine heikin(mn,x,a,s) implicit real*8 (a-h, o-z) dimension x(mn) a=0.d0 s=0.d0 do i=1,mn a=a+x(i) end do a=a/float(mn) do i=1,mn s=s+ ( x(i)-a )**2 end do s=sqrt(s/mn) return end c