7 lines
106 B
Text
7 lines
106 B
Text
fun mean(arr)
|
|
sum := 0
|
|
for N from 1 to #arr do
|
|
sum := sum + arr[N]
|
|
od
|
|
return (sum / #arr)
|
|
end
|