Вычисления с хранением последовательности значений - PascalABC.NET (251418)

Формулировка задачи:

Даны действительные числа a₁₉₀₂, a₁₉₀₂, ... , a₁₉₅₀ - количество осадков (в миллиметрах), выпавших в Москве в течении первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года.

Решение задачи: «Вычисления с хранением последовательности значений»

Листинг программы

begin
  var a := ReadArrInteger('Введите через пробел значения мм осадков за каждый год начиная с 1901 по 1950 :', 50);
  var average := Round(a.Average);
  WriteLn('Среднее количество осадков = ', average);
  WriteLn('Отклонение от среднего по годам:'); a.Select((x, i) -> Format(' {0}:{1:+#;-#;равно среднему} ', i+1901, x-average)).Println;
end.

Объяснение кода листинга программы

В этом коде:

Переменная a объявлена как массив целых чисел, который заполняется значениями, введенными пользователем.
Среднее значение массива вычисляется и сохраняется в переменной average.
На экран выводится сообщение о среднем количестве осадков.
Затем на экран выводится сообщение о отклонении каждого года от среднего значения, при этом если значение больше или равно среднему, то в сообщении указывается, что оно равно среднему.