Ответ:

var n,i,a,s,k:Integer;

begin

Write('Введите количество чисел ');

Readln(n);

for i:=1 to n do

begin

Write('Введите целое число ');

Readln(a);

if a mod 2 = 0 then

begin

s:=s+a;

k:=k+1

end

end;

Write('Среднее арифметическое чётных чисел равно ',s/k)

end.

Объяснение:

n - количество целых чисел, которые будут вводиться

i - счётчик цикла

a - вводимое целое число

s - сумма чётных чисел

k - количество чётных чисел