Дан одномерный массив, состоящий из 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

- суммируются четные значения элементов, а не элементы с четными индексами