Вычислить среднее арифметическое элементов массива, имеющих четные индексы - Free Pascal

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

Дано: массив Q(13). Вычислить среднее арифметическое элементов, имеющих четные индексы, и среднее арифметическое элементов, имеющих нечетные индексы. Вычисление среднего арифметического заданных элементов массива оформить в виде подпрограммы.

Решение задачи: «Вычислить среднее арифметическое элементов массива, имеющих четные индексы»

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

const n=13;
type
  ar=array[1..n] of real;
var
  q:ar;
  i:integer;
function Sr(a:ar;o:boolean):real;
var
  i,j:integer;
  s:real;
begin
  j:=0;
  s:=0.0;
  for i:=1 to n do if odd(i)=o then
    begin
      s:=s+a[i];
      j:=j+1;
    end;
  Sr:=s/j;
end;
begin
  write('Введите массив:');
  for i:=1 to n do read(q[i]);
  writeln('<Sчетных>=',Sr(q,false):0:2);
  writeln('<Sнечетных>=',Sr(q,true):0:2);
end.

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

Объявлен константный целочисленный параметр n со значением 13.
Объявлен тип ar, который представляет собой массив действительных чисел, размером от 1 до n.
Объявлена переменная q типа ar, которая будет представлять входной массив.
Объявлена переменная i типа integer, которая будет использоваться как счетчик в цикле.
Объявлена функция Sr с двумя параметрами типа ar и boolean.
Внутри функции Sr объявлены две переменные i и j типа integer, а также переменная s типа real.
Переменная j инициализируется значением 0.
Переменная s инициализируется значением 0.0.
В цикле от 1 до n происходит проверка, является ли индекс четным (если o равно false) или нечетным (если o равно true).
Если индекс является четным, то значение элемента массива добавляется к переменной s, а переменная j увеличивается на 1.
После завершения цикла, функция возвращает значение переменной s, деленное на значение переменной j.
После объявления функции Sr, запрашивается у пользователя ввод массива.
В цикле от 1 до n происходит запрос на ввод значения элемента массива.
Выводится значение функции Sr для массива с четными индексами.
Выводится значение функции Sr для массива с нечетными индексами.
Программа завершается.