Найдите суммы элементов массива чётных и нечётных позиций - Pascal ABC

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

Найдите суммы элементов массива чётных и нечётных позиций Написать нужно в Pascal Abc

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

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

var a:array[1..100] of integer; b,c,i,n:integer;
begin
//заполнение массива
writeln('введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
readln(a[i]);
//обработка массива
for i:=1 to n do
if i mod 2 = 0 then b:=b+a[i] else c:=c+a[i];
writeln('сумма чётных - ',b,', сумма нечётных - ',c);
end.

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

В данном коде происходит следующее:

Объявляются переменные: a - массив целых чисел, b и c - переменные для хранения суммы четных и нечетных элементов соответственно, i - переменная для цикла, n - переменная для количества элементов в массиве.
Пользователю предлагается ввести количество элементов в массиве.
Заполняется массив a значениями, введенными пользователем.
Выполняется цикл по всем элементам массива a.
Внутри цикла проверяется, является ли индекс элемента четным или нечетным.
Если индекс четный, то к переменной b прибавляется значение элемента, иначе к переменной c прибавляется значение элемента.
По окончании цикла выводятся суммы четных и нечетных элементов.