Program Sred;
  var

     n, i, sum : integer;

     mas: array[1..20] of integer;
  af: real;
  begin

      sum := 0;

      n := 20;
      writeln('введите элементы массива');

      for i:=1 to n do
      begin
        readln(mas[i]);
        sum := sum + mas[i];
     end;
     af := sum/n;
     writeln (af);
end.

Verified answer

орфографию проверь

var N,i,z,l:integer;

a:array[1..100] of integer;

for i:=1 to N do 

begin

readln(a[i]);

l:=l+a[i];

end;

z:=l/N;

writeln(z);

end.