Подсчитать сумму с четными индексами и среднее арифметическое с нечетными индексами - Pascal

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

Дана последовательность чисел аi (i=1, 2, …, N). Подсчитать сумму с четными индексами и среднее арифметическое с нечетными индексами.

Решение задачи: «Подсчитать сумму с четными индексами и среднее арифметическое с нечетными индексами»

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

const
  n = 10;
var
  a: array [1..n] of integer;
  sr: real;
  sum,i, kc: integer;
 
begin
  randomize;
  sum := 0;
  sr := 0;
  kc := 0;
  for i := 1 to n do
   begin
    a[i] := -n div 2 + random(n)+1;
    write(a[i]:4);
    if not odd(i) then sum := sum + a[i]
    else
     begin
      sr := sr + a[i];
      inc(kc);
     end;
  end;
  writeln;
  writeln('Summa: ', sum);
  writeln('Average: ', sr / kc:0:2);
end.

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

Объявление константы n и установление её значения: const n = 10;
Объявление переменных a (массив целых чисел), sr (вещественное число), sum, i и kc (целые числа): var a: array [1..n] of integer; sr: real; sum, i, kc: integer;
Инициализация генератора случайных чисел: randomize;
Инициализация переменных sum, sr и kc с нулевыми значениями: sum := 0; sr := 0; kc := 0;
Создание цикла для заполнения массива a случайными числами и подсчёта суммы с нечетными индексами и среднего значения с чётными индексами: for i := 1 to n do begin a[i] := -n div 2 + random(n)+1; write(a[i]:4); if not odd(i) then sum := sum + a[i] else begin sr := sr + a[i]; inc(kc); end; end;
Печать массива на экране: writeln;
Печать суммы с нечетными индексами: writeln('Summa: ', sum);
Печать среднего значения с чётными индексами: writeln('Average: ', sr / kc:0:2);
Завершение программы: end.