Question

Elaborati un program Pascal care citeste, afisa si calculeaza media aritmetica a componentelor unui tablou liniar cu N componente​

Answer 1

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.