---

program Exercise3;
var
  a: array[1..40] of integer;
  i, count_odd, sum_odd: integer;
  avg_odd: real;
begin
  randomize;
  
  sum_odd := 0;
  count_odd := 0;
  
  writeln('Исходный массив:');
  for i := 1 to 40 do
  begin
    a[i] := random(21);
    write(a[i], ' ');
    
    // а) Среднее арифметическое нечетных чисел
    if a[i] mod 2 <> 0 then
    begin
      sum_odd := sum_odd + a[i];
      count_odd := count_odd + 1;
    end;
  end;
  writeln;
  writeln;
  
  if count_odd > 0 then
    avg_odd := sum_odd / count_odd
  else
    avg_odd := 0;
    
  writeln('а) Среднее арифметическое нечетных чисел: ', avg_odd:0:2);
end.