1. Массив из 15 элементов задан случайными целыми числами в диапазоне от -10 до ...

July 2022 1 3 Report

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

Answers & Comments

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

1 votes Thanks 1

napisat programmu na paskale na vhod podayutsya celye chisla do poyavleniya nulya v

Answer

Answers & Comments

napisat programmu na paskale na vhod podayutsya celye chisla do poyavleniya nulya v

рекомендуемые вопросы

Helpful Links

Helpful Social