      ! m$B%v=j$NB,Dj2U=j$K$D$-(Bni$B8D(B(i=1,m)$B$NB,Dj%G!<%?$,!"(B
      ! m ! $BNc$($P(B2
      ! n1 !$BNc$($P(B3
      ! 123.  !1$B8DL\$N%G!<%?(B 
      ! 234.  !2$B8DL\$N%G!<%?(B 
      ! 345.  !3$B8DL\$N%G!<%?(B 
      ! n2 !$BNc$($P(B2
      ! 987.  !1$B8DL\$N%G!<%?(B 
      ! 654.  !2$B8DL\$N%G!<%?(B 
      ! $B$_$?$$$KJB$s$G$$$k%G!<%?%U%!%$%k(Bmaku.d$B$r:n@.$7!"(B
      !./maku<maku.d$B$r<B9T$9$k$H!"(B
      !$B3FB,Dj2U=j$4$H$N%G!<%?$NJ?6QCM!"I8=`JP:9!"JQF078?t$r=PNO!#(B
        program maku
        implicit real*8 (a-h, o-z)
        dimension x(1000)
        read(*,*) m
        do l=1,m
        read(*,*) n
         sx=0.d0
         sx2=0.d0
           do i=1,n
!            print*,i
            read(*,*) x(i)
            sx=sx+x(i)
            sx2=sx2+x(i)**2
           end do
!
! x(i),y(i)$B$N:GBgCM(Bxmax,ymax$B$H:G>.CM(Bxmin,ymin$B$r5a$a$k(B
!              xmax=x(1)
!              xmin=x(1)
!              do i=1,n
!              if (x(i).gt.xmax) xmax= x(i)
!              if (x(i).lt.xmin) xmin= x(i)
!              end do
!        
           xm=sx/n
           xb=sx2/n-xm**2
           sqx=sqrt(xb)
!
         print*,xm,sqx,sqx/xm
         end do
!
!
         end
