Найти среднее арифметическое нечетных элементов массива - Pascal

Формулировка задачи:

Ребят помогите! Дано натуральное число N и последовательность a1,a2,…,aN натуральных чисел, заданных с клавиатуры. Найти среднее арифметическое нечетных элементов массива. Решить задачу для N=10. .(3б.) заранее спасибо!!!!!! надо до 21,01,13!!

Решение задачи: «Найти среднее арифметическое нечетных элементов массива»

Листинг программы

Const
  n=10;
Var
  a: Array[1..n] of Integer;
  i,k: Byte;
  s: Integer;
BEGIN
Writeln('Введите массив:');
For i:=1 to n do
begin
  Readln(a[i]);
  If odd(a[i]) Then
  begin
    s:=s+a[i];
    Inc(k);
  end;
end;
Writeln('Ср. арифм. нечетных = ',s/k:2:2);
Readln
END.

Объяснение кода листинга программы

Объявляются константы и переменные:
- n = 10 (размер массива)
- a = Array[1..n] of Integer (массив целых чисел)
- i, k = Byte (номер элемента массива и счетчик нечетных чисел)
- s = Integer (сумма нечетных чисел)
Выводится сообщение Введите массив:
Происходит заполнение массива a с помощью цикла for и функции Readln.
С помощью условного оператора If проверяется, является ли текущее число нечетным.
Если число нечетное, то оно прибавляется к переменной s, а переменная k увеличивается на единицу.
После заполнения массива вычисляется среднее арифметическое нечетных чисел путем деления суммы нечетных чисел на количество нечетных чисел.
Результат выводится на экран с помощью функции Writeln.
Программа ожидает ввода с помощью функции Readln.