Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах - Pascal

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

дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее арифметическое значение элементов, стоящих на нечетных местах.

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

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

program ConsoleApp;
 
// --------------------       
  const maxLen = 100;
   
  var i, n: Integer; 
      s: Double;
      a: array [1..maxLen] of Integer;
   
begin
  Randomize;
  n := Random(maxLen) + 1;
  for i := 1 to n do begin
    a[i] := Random(100);
    Write(' ', a[i])    
  end;
  WriteLn;
  
  i := 1; s := 0;
  while i <= n do begin
    s := s + a[i]; i := i + 2
  end;    
  
  WriteLn('result: ', (s / n):0:5)
end.

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

В данном коде происходит следующее:

Объявляются переменные:
- i, n (целые числа)
- s (число с плавающей точкой)
- a (массив целых чисел)
Инициализируются начальные значения переменных:
- n присваивается случайное число от 1 до maxLen
- Элементы массива a заполняются случайными числами от 0 до 99
Выводится список элементов массива a с помощью цикла for и оператора Write
Инициализируется переменная s со значением 0
Запускается цикл while, который будет выполняться до тех пор, пока i не станет больше n:
- К переменной s прибавляется значение элемента массива a с индексом i
- i увеличивается на 2
Выводится результат среднего арифметического значения элементов массива a с помощью оператора WriteLn и форматирования числа (круглые скобки, количество знаков после запятой - 5)