*Mảng 1 chiều:

uses crt;
var i,n,s,d:longint; a:array[1..1000]of longint; 
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then begin s:=s+a[i]; inc(d); end;
      end;
   writeln('Trung binh cong: ',s/d:0:2);
readln
end.

*Mảng 2 chiều:

uses crt;
var i,j,n,m,s,d:longint; a:array[1..1000,1..1000]of longint; 
begin
clrscr;
   write('Nhap n: ');readln(n);
   write('Nhap m: ');readln(m);
   for i:=1 to n do 
      for j:=1 to m do
         begin
            write('Nhap phan tu [',i,',',j,']: ');readln(a[i,j]);
            if a[i,j] mod 2=0 then begin s:=s+a[i,j]; inc(d); end;
         end;
   writeln('Trung binh cong: ',s/d:0:2);
readln
end.

Mảng 1 chiều:

uses crt;
var a:array[1..1000]of longint;
 n,i,d,s:integer;
begin
 clrscr;
 write('Nhap so luong phan tu: ');readln(n);
 s:=0;d:=0;
 for i:=1 to n do
  begin
   write('Nhap phan tu thu ',i,': ');readln(a[i]);
   if a[i] mod 2=0 then begin
                           inc(s,a[i]);inc(d,1);
                        end;
  end;
 write('Trung binh cong cac so chan: ',s/d:0:2);
 readln;
end.

Mảng 2 chiều:

uses crt;
var a:array[1..1000,1..1000]of longint;
 n,i,d,s,m,j:integer;
begin
 clrscr;
 write('Nhap so luong cot: ');readln(n);
 write('Nhap so luong hang: ');readln(m);
 s:=0;d:=0;
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('Nhap phan tu [',i,'][',j,']: ');readln(a[i,j]);
    if a[i,j] mod 2=0 then begin
           inc(s,a[i,j]);inc(d,1);
            end;
   end;
 write('Trung binh cong cac so chan: ',s/d:0:2);
 readln;
end.