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.