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

составил в pascalprogram mas;var i,j:integer; a:array [1..10] of integer;beginrandomize;for i=1 to 10 do  begina[i]:=random(10);end;for i=2 to 10 dobeginj:=j+a[i];i:=i+1;end;writeln(j);readln;end.