Найти среднее арифметическое элементов массива, стоящих на чётных мечтах, и вывести все положительные элементы - Pascal

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

Задать массив генератором случайных чисел в диапазоне [-10,15]. Найти среднее арифметическое элементов массива, стоящих на четных мечтах, и вывести на экране все положительные элементы.

Решение задачи: «Найти среднее арифметическое элементов массива, стоящих на чётных мечтах, и вывести все положительные элементы»

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

const n=10;
var
  a:array[1..n] of integer;
  i,j,k:integer;
begin
  randomize;
  writeln('Array:');
  for i:=1 to n do begin
    a[i]:=random(26)-10;
    write(a[i],' ');
    if not odd(i) then begin
      k:=k+1;
      j:=j+a[i];
    end;
  end;
  writeln;
  writeln('<S>=',j/k:0:4);
  writeln('Positive elements:');
  for i:=1 to n do
    if a[i]>=0 then write(a[i],' ')
end.

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

Объявляется константа n со значением 10
Объявляются переменные a - массив целых чисел от 1 до n, i, j, k - целые числа
Используется генератор случайных чисел randomize
Выводится сообщение Array:
Выполняется цикл от 1 до n
- Генерируется случайное число от -10 до 15 и присваивается элементу массива a[i]
- Выводится значение a[i]
- Если индекс i нечетный, то:
  - Увеличивается счетчик k на 1
  - К элементу j прибавляется значение элемента массива a[i]
Выводится пустая строка
Вычисляется среднее арифметическое четных элементов массива j/k с точностью до 4 знаков после запятой
Выводится сообщение Positive elements:
Выполняется цикл от 1 до n
- Если элемент массива a[i] больше либо равен 0, то выводится его значение