Question

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

Answer 1

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.