RosettaCodeData/Task/Averages-Arithmetic-mean/Craft-Basic/averages-arithmetic-mean.basic

dim a[3, 1, 4, 1, 5, 9]

arraysize s, a

for i = 0 to s - 1

	let t = t + a[i]

next i

print t / s