Заполните массив 12 случайными целыми числами из промежутка [-10,10]. Выведите на экран элементы массива через пробел. Найдите сумму элементов массива, находящихся на четных позициях

Var x, s, sum, i:integer;

mass:array[1 ... 12] of integer;

begin

x:=0;

sum:=0;

for i:=1 to 12 do

begin

x:=x+1;

s:=random (3) ;

if (s mod 2) = 0

then mass[i]:=random (11)

else mass[i]:=-random (11) ;

if (x mod 2) = 0 then sum:=sum+mass[i];

write (mass[i]+' ') ;

end;

writeln ('') ;

writeln ('сумма чисел на четных местах = '+sum) ;

end.