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

185

281

Посмотреть ответы 2

Ответы на вопрос:

Ramil2425

Информатика

4,4(66 оценок)

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.