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

Вопрос школьника по предмету Информатика

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.