Пример решения:

program ArrayExample;
var
arr: array[1..10] of integer;
i, evenCount, oddCount, sum, avg: integer;
begin
evenCount := 0;
oddCount := 0;
sum := 0;
writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(arr[i]);
sum := sum + arr[i];
if arr[i] mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
avg := sum div 10;
writeln('Количество четных элементов: ', evenCount);
writeln('Количество нечетных элементов: ', oddCount);
writeln('Среднее арифметическое: ', avg);
end.

Эта программа создает массив из 10 элементов, запрашивает у пользователя их значения, определяет количество четных и нечетных элементов, а также находит среднее арифметическое.