Язык программирования указан не был, приведу пример на Haskell.

Определим функцию seqAgv :: Int -> Double, принимающую шаг прогрессии. Все числа в прогрессии положительные. Самое большое из них равняется 100. Эту последовательность можно описать в виде [100, 100-step .. 1], где step – шаг прогрессии.

Таким образом, среднее арифметическое последовательности можно рассчитать как сумму всех элементов деленную на их количество.

Код приведен ниже.

• import Data.List (genericLength)
• seqAvg :: Int -> Double
• seqAvg step
•  | step < 1 || seq >= 100 = error "Incorrect step"
•  | otherwise = realToFrac (sum seq) / genericLength seq
•  where seq = [100, 100-step .. 1]