вещ sum = 0;

цел n
вывод "введите кол-во эл в массиве:"
ввод n

целтаб a[0:n];
цел i = 0;
i:=0;
| ЗАПОЛНИМ МАССИВ
нц n+1 раз
a[i]:=int(rnd(30+1))
i:=i+1
кц

i:=0;
| ЗАПОЛНИМ МАССИВ
нц n+1 раз
если mod(i,2)=0 то
sum:=sum+a[i];
вывод "i:",i," ",sum,нс
все
i:=i+1
кц
кон