Найти среднее арифметическое элементов массива С[k], стоящих на четных местах. (Pascal), Закомментировать логику

PascalABC.NETbegin ArrRandom(ReadInteger('k:'),-99,99).Println.Slice(1,2).Average.Print end.

Объяснение:

ArrRandom(n,a,b) -- Возвращает массив размера n, заполненный случайными целыми значениями в диапазоне [a,b].Println -- Выводит последовательность на экран, используя пробел качестве разделителя, и переходит на новую строку.Slice(from,step) -- Возвращает срез последовательности от номера from с шагом step.Average -- Возвращает среднее значение последовательности.Print -- Выводит последовательность на экран, используя пробел качестве разделителя.

Пример работы:

37+55 = 9292 / 2 = 46

var a,b,c: integer;

begin

  read(a,b,c);

  write(a*b*c);

end.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';