RosettaCodeData/Task/Averages-Root-mean-square/BBC-BASIC/averages-root-mean-square.basic

      DIM array(9)
      array() = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

      PRINT FNrms(array())
      END

      DEF FNrms(a()) = MOD(a()) / SQR(DIM(a(),1)+1)