var
a: array [1..40] of integer; //Инициализируем массив из 40 целых чисел
i, s, n: integer; //s - сумма нечетных чисел, n - счетчик нечетных элементов
begin
s:= 0;
n:= 0;
write('Исходный массив: ');
for i:= 1 to 40 do
begin
a[i]:= random(20); //Формируем элемент массива
write(a[i], ' '); //Распечатываем
if a[i] mod 2 = 1 then {если элемент нечетный, то прибавляем его значение к сумме и увеличиваем счетчик нечетных элементов на 1}
begin
s:= s + a[i];
n:= n + 1;
end;
end;
writeln;
write('Среднее арифметическое: ', s / n : 0 : 5); {Делим сумму нечетных элементов на их количество и выводим с точностью до 5 знаков после запятой}
end.