Найти сумму всех четных элементов массива А, имеющих четные индексы - Pascal ABC

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

Дан одномерный массив А, состоящий из N целых чисел. Найти сумму всех четных элементов массива А, имеющих четные индексы. Массив заполнить случайными числами из диапазона 1 до 10.

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

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

var
 n,i,sum :integer;
 a: array [1..100] of integer;
begin
 
 write('n = ');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(10)+1;
   write(a[i]:3);
   if i mod 2=0 then sum:=sum+a[i];
   if i=n then writeln;
  end;
  
 writeln('сумма четных = ',sum);
 
end.

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

В данном коде объявлены следующие переменные:

n - переменная типа integer, которая представляет собой количество элементов в массиве А.
i - переменная типа integer, которая используется как счетчик для перебора элементов массива А.
sum - переменная типа integer, которая представляет собой сумму всех четных элементов массива А с четными индексами.
a - переменная типа array[1..100] of integer, которая представляет собой массив А. В начале кода выводится сообщение n =, после чего считывается значение n с помощью функции readln. Затем происходит цикл for, который перебирает все элементы массива А от 1 до n. Внутри цикла каждый элемент массива a[i] присваивается случайное число от 1 до 10 с помощью функции random(10)+1. Затем проверяется, является ли текущий индекс i четным числом. Если это так, то текущий элемент a[i] добавляется к переменной sum. Если индекс i равен n (т.е. текущий элемент последний), то выводится сообщение `. После завершения цикла выводится сообщениесумма четных = `, за которым следует значение переменной sum. Таким образом, данный код находит сумму всех четных элементов массива А с четными индексами и выводит ее на экран.