Составьте программу, которая заполняет массив a[1 ... 10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с четными значениями

var

a: array [1 ... 10] of integer;

i, m: integer;

begin

for i : = 1 to 10 do

begin

a[i] : = random (100) - 50;

writeln ('a[', i, '] = ', a[i]);

if (a[i] mod 2 = 0) then m : = m + a[i];

end;

writeln ('Сумма элементов массива с четными значениями равна ', m);

end.