Вот пример кода на Pascal, который выполняет данную задачу:

program ReplaceEvenWithAverage;
const
N = 6; // размер массива
var
arr: array[1..N] of Integer;
i, sum, count, avg: Integer;
begin
// Заполняем массив произвольными значениями
arr[1] := 1;
arr[2] := 2;
arr[3] := 3;
arr[4] := 4;
arr[5] := 5;
arr[6] := 6;
// Находим среднее арифметическое элементов на нечетных местах
sum := 0;
count := 0;
for i := 1 to N do
begin
if i mod 2 <> 0 then
begin
sum := sum + arr[i];
count := count + 1;
end;
end;
avg := sum div count;
// Заменяем элементы на четных местах средним арифметическим
for i := 1 to N do
begin
if i mod 2 = 0 then
begin
arr[i] := avg;
end;
end;
// Выводим измененный массив
for i := 1 to N do
begin
Write(arr[i], ' ');
end;
end.

Этот код создает массив из 6 элементов и заменяет элементы на четных позициях средним арифметическим элементов на нечетных позициях.