For Loop and Array related

*To*: mathgroup at smc.vnet.net*Subject*: [mg57971] For Loop and Array related*From*: "mchangun at gmail.com" <mchangun at gmail.com>*Date*: Wed, 15 Jun 2005 05:58:05 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hi All, I have an array with 100 elements, all set to zero initially. Then I want to randomly choose one element and increase its value by one, and repeat this 16000 times. Here is my code: Lattice = Table[0, {n, 100}]; For[i = 1, i = 16000, i++, Lattice[[Random[Integer, {1, 100}]]]++] So now if I add all the elements in the list Lattice together, I should get 16000 (I use Total[Lattice] to get the sum of the list). But this doesn't happen, and strangely, each time I run this, the sum of the list is different! What am I doing wrong? Also I'm aware that a lot of Mathematica newbies try and write code like it were C++ and I think i've fallen into this trap as well. So is there a different (more Mathematica) way which I can implement the above? Thanks in advanced.

**Follow-Ups**:**Re: For Loop and Array related***From:*Sseziwa Mukasa <mukasa@jeol.com>

**Re: For Loop and Array related***From:*Andrzej Kozlowski <andrzej@akikoz.net>

**Re: For Loop and Array related***From:*János <janos.lobb@yale.edu>

**Re: For Loop and Array related***From:*yehuda ben-shimol <bsyehuda@gmail.com>