Найти полусумму элементов массива с четными индексами - PascalABC.NET

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

В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50), найти Полусумму элементов с четными индексами

Решение задачи: «Найти полусумму элементов массива с четными индексами»

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

const n=10;
 
var x:array [1..n] of integer;
    i,sum:integer;
 
Begin
Sum:=0;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    if not Odd(i) then Inc(Sum,X[i]);
    end;
Writeln;
 
Writeln('Ответ: ',Sum/2);
end.

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

Объявляется константа n равная 10, которая представляет собой размер массива.
Объявляется переменная x типа массив целых чисел размером 10.
Объявляется переменная i типа целое число, которая будет использоваться в качестве счетчика в цикле.
Объявляется переменная sum типа целое число, которая будет использоваться для хранения суммы элементов массива.
Задается начальное значение переменной sum равное 0.
Выводится сообщение Исходный массив: и выводится сам массив. Для каждого элемента массива выполняется следующая последовательность действий: а) Элемент инициализируется случайным числом от 0 до 100. б) Элемент выводится на экран в формате 4-х знаков. в) Если индекс элемента четной, то к переменной sum прибавляется значение этого элемента.
После вывода всех элементов массива выводится сообщение Ответ: и выводится полусумма всех элементов массива.
Программа завершается.