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

Var a: array [1 ... 15] of integer;

i, sum, k: integer; sa: real;

Begin

For i:=1 to 15 do

a[i]:=Random (21) - 10;

writeln ('Исходный массив:') ;

For i:=1 to 15 do

write (a[i], ' ') ;

writeln;

sum:=0; {первоначально сумме присваивается значение 0}

k:=0; {первоначально счетчику присваивается значение 0}

For i:=1 to 15 do

if (a[i] mod 2=0) and (i mod 2=1) then

begin

sum:=sum+a[i]; {подсчет суммы}

k:=k+1; {подсчет количества элементов}

end;

sa:=sum/k; {вычисление среднего арифметического}

writeln ('Среднее арифметическое четных элементов массива, стоящих на нечетных местах = ', sa:4:2) ;

End.