<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
       implicit real*8 (a-h, o-z)
       dimension an(60,100),e(60)
c 人数：mn
        mn=5
c 絵の枚数：ne
        ne=54
        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,54)
        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(*,*) '-----------------------'
       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