n = 100;
u = 100;
B  =  {};   
For[ i = 1,  
      i ≤ n, i++, 
A  =  
        Table[0 ,  {u}]; 
While[
        Min[A] == 0, 
x  =  
          Random[Integer, {1, 
              u}]; 
A[[x]]++;
]; 
c  =  
        Sum[ A[[i]], {i, u} ]; 
B  =  
        Append[B, c];
]
M  =  
        Table[ Sum[ B[[i]], {i, k} ]/k, {k, 
            n} ];

Export["dati.dat", M]

\(\(\( (*\ 
      versione\ ultra - \(\(ottimizzata!!\)!\)\ praticamente\ calcola\ il\ vettore\ M\ delle\ medie\ direttamente\ nel\ ciclo\ tramite\ l' 
          istruzione\ If\ facendo\ molte\ meno\ somme\ *) \)\(
\)\(
\)\(\(n = 100;\)

    \(u = 100;\)

    \(M\  = \ {};\)

    For[\ i = 1, \ 
      i ≤ n, \(i++\), 
A\  = \ 
        Table[0\ , \ {u}]; 
While[
        Min[A] == 0, 
x\  = \ 
          Random[Integer, {1, 
              u}]; 
\(A[\([x]\)]++\);
]; 
M\  = \ 
        Append[M, \ \(M[\([i - 1]\)]\ \((i - 1)\)\  + \ Sum[\ A[\([j]\)], {j, u}\ ]\)\/i\ ]
]


    Export["dati.dat", M]\)\)\)