Дан массив чисел А [20]. Найти среднее арифметическое НЕЧЁТНЫХ элементов.
ПАСКАЛЬ.

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

Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов

Выводим  значение элемента на экран

Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов