1. Массив из 15 элементов задан случайными целыми числами в диапазоне от -10 до 10. Подсчитать среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах.

Var a: array [1..15] of integer;i, sum, k: integer; sa: real;BeginFor i:=1 to 15 doa[i]:=Random(21)-10;writeln('Исходный массив:');For i:=1 to 15 dowrite  (a[i], ' ');writeln;sum:=0; {первоначально сумме присваивается значение 0}k:=0;  {первоначально счетчику присваивается значение 0}For i:=1 to 15 doif (a[i] mod 2=0) and (i mod 2=1) thenbeginsum:=sum+a[i]; {подсчет суммы}k:=k+1; {подсчет количества элементов}end;sa:=sum/k; {вычисление среднего арифметического}writeln('Среднее арифметическое четных элементов массива, стоящих на нечетных местах = ', sa:4:2);End.