Дан целочисленный одномерный массив, состоящий из n элементов. найти среднее арифметическое элементов в промежутке от 1 до 100

Программа на Паскале
задан массив M(n)
s:=0
For i:=1 to 100 do s:=s+M[i]
s:=s/100

результат в переменной s