pangimun, хз.. я паскаль лет 7 не юзал. погугли

function blabla(a: array[1..n]; n:integer):real;
var sum, num, i: integer;
begin
   sum:=0;
   num:=0;
   for i:=1 to n do
   begin
      if (ord(a[i]) mod 2 = 0)
      then
      begin
         sum:=sum+ord(a[i]);
         num:=num+1;
      end;
   end;
   blabla := sum/num;
end;


както так

pangimun, ну я хз... обьяви массив как array[1..10]

и в функуции так зделай

pangimun, type mas = array[1..20] of char;

Program n12;
uses crt;
type mas = array[1..20] of char;
var a:mas; i,j,n,m,z,sum,num:integer; b:char;
function sr_zn(a:mas; n:integer):real;
var sum, num, i: integer;
begin
sum:=0;
num:=0;
for i:=1 to n do
begin
if (ord(a[i]) mod 2 = 0)
then
begin
sum:=sum+ord(a[i]);
num:=num+1;
end;
end;
sr_zn := sum/num;
end;
begin
clrscr;
write('Vvedite kolichestvo elementov:');
readln(n);
for i:=1 to n do begin write('Vvedite element ',i,' ',':');
readln(a[i])
end;
writeln('Srednee arifmeti4eskoe 4etnih kodov = ',sr_zn(a[i],n));
readkey;
end.

больше вариантов у меня нет