program AverageOfEvenIndexes;

var
C: array[1..10] of Integer; // объявляем массив из 10 элементов
sum, count, average: Real; // объявляем переменные для суммы, количества и среднего значения
i: Integer;

begin
sum := 0; // инициализируем сумму
count := 0; // инициализируем количество

// заполняем массив случайными значениями
for i := 1 to 10 do
begin
C[i] := Random(100); // генерируем случайное значение от 0 до 99
end;

// вычисляем сумму элементов на четных местах
for i := 2 to 10 step 2 do // начинаем с 2-го элемента, т.к. массивы в Pascal индексируются с 1
begin
sum := sum + C[i]; // добавляем значение элемента к сумме
count := count + 1; // увеличиваем количество на 1
end;

// вычисляем среднее значение
average := sum / count;

// выводим результат
writeln('Среднее арифметическое элементов на четных местах: ', average:0:2);
end.