Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью генератора случайных чисел. если можно с блок-схемой

Const n=10; {Можно подставить любое число}

var a:array[1 ... n] of integer; i, s:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (8) + 1; {Массив заполняется числами от 1 до 9}

write (a[i],' ') ;

end;

writeln;

s:=0;

for i:=1 to n do

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

writeln (s) ;

end.