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.
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.