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

ответил там.

заполните массив N( N- целое число , вводиться с клавиатуры ) случайными целыми числами из промежутка [-10,10]. Выведите на экран элементы массива через 2 пробела .Вычислите среднее арифметическое неотрицательных элементов .

ещё вот

прости, сейчас времени нету. Как только приду от репетитора - сделаю.

хорошо , спасибо большое

var x,s,sum,i:integer;       mass:array[1..12] of integer;beginx:=0;sum:=0;for i:=1 to 12 dobeginx:=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.