RosettaCodeData/Task/Averages-Arithmetic-mean/HicEst/averages-arithmetic-mean.hicest

REAL :: vec(100)               ! no zero-length arrays in HicEst

   vec = $ - 1/2               ! 0.5 ... 99.5
   mean = SUM(vec) / LEN(vec)  ! 50
END