Function MediaVett(V: Vettore; L: Integer): Real;
Var
  i: Integer;
  Somma: Real;
Begin
  Somma:=0;
  For i:=1 to L do
    Somma:=Somma+V[i];
  MediaVett:=Somma/L;
End;