Вычисления среднего арифметического элементов массива с четными номерами - Turbo Pascal

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

4.3. Составьте программу вычисления среднего арифметического элементов с четными номерами. помогите пожалуйста

Решение задачи: «Вычисления среднего арифметического элементов массива с четными номерами»

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

program pr;
 
var
  a: array [1..100] of integer;
  i, n, cout, sum: integer;
  avg: real;
 
begin
  cout := 0;
  sum := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);   // диапазон любой ставь( здесь от 0 до 20);
    write(a[i]:3);
    if i mod 2 = 0 then
    begin
      cout := cout + 1;
      sum := sum + a[i];
    end;
  end;
  writeln;
  writeln('Среднее арифметическое: ', sum / cout);
end.

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

Программа объявляет переменные: a (массив целых чисел), i (счетчик), n (размер массива), cout (переменная для хранения суммы четных элементов), sum (переменная для хранения суммы всех элементов массива), avg (переменная для хранения среднего арифметического).
Задается размер массива.
В цикле for перебираются все элементы массива от 1 до n.
Для каждого элемента массива выполняется следующее:
- a[i] присваивается случайное число от 0 до 20 (включительно).
- Выводится значение a[i].
- Если i mod 2 = 0 (т.е. i является четным числом), то:
  - Переменная cout увеличивается на 1.
  - Переменная sum увеличивается на a[i].
После завершения цикла выводится среднее арифметическое: sum / cout.