Дан одномерный массив, состоящий из 10 элементов. Сосчитать сумму четных элементов массива

В задании нечетко сформулировано условие. "Сосчитать сумму четных элементов массива" - тут можно понимать, что требуется либо учитывать элементы с четными индексами, либо элементы с четными значениями. Версия языка Паскаль также в задании не указана. Поэтому автор ответа сам выбрал версию языка и дал ответ для суммы элементов с четным значением.

var  a : array [1..10] of integer;  b, i : integer;begin  randomize;  write('Исходный массив: ');  for i := 1 to 10 do   begin    a[i] := random(10);    write(a[i], chr(32));    if (a[i] mod 2) = 0 then b += a[i];  end;  writeln(); writeln('Сумма четных: ', b);end.- написано в Pascal ABC- массив из 10 элементов заполняется случайными числами от 0 до 10- суммируются четные значения элементов, а не элементы с четными индексами