Ответ: type my_array = array[1..20] of integer;

procedure input_array(var c: my_array; n: integer);

begin

for var i:= 1 to n do

read(c[i]);

end;

procedure count_array(var c: my_array; n: integer);

begin

var d: integer;

var x: real;

for var i:= 1 to n do

begin

d:= d + c[i];

x:= d/n;

end;

writeln(x);

end;

begin

var a: my_array;

var size: integer;

read(size);

input_array(a, size);

count_array(a, size);

end.