Răspuns :

var

   v: array[1..101] of integer;

   n,s,i: integer;

begin

   s:=0;

   read(n);

   for i := 1 to n do

   begin

       read(v[i]);

       s:=s+v[i];

   end;

   write(s/n);

end.

ID Alte intrebari