program z1;
var a:array [1..20] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i],' ')
end;
writeln;
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)
end.
Объяснение:
Задаём значение элемента с random
Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов
Выводим значение элемента на экран
Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов
19/2=9(1)
9/2=4(1)
4/2=2(0)
2/2=1(0)
1/2=0(1) ответ 10 011
19/8=2(1)
2/8=0(1) ответ 11в восьмеричной системе.(может быть не точно )
19/16=1(3)
1/16=0(1) ответ 13в шестнадцатеричной системе