RosettaCodeData/Task/Averages-Arithmetic-mean/Bc/averages-arithmetic-mean.bc

define m(a[], n) {
    auto i, s

    for (i = 0; i < n; i++) {
        s += a[i]
    }
    return(s / n)
}