Author: A. Nussbaumer
Date: 17 März 2013

Noch einmal

ListeA = Sequence(Random[1, 6], i, 1, 1000)
ListeJ = Sequence(Random[1, 6], i, 1, 1000)
ListeI = Sequence(Random[1, 6], i, 1, 1000)
ListeH = Sequence(Random[1, 6], i, 1, 1000)
ListeG = Sequence(Random[1, 6], i, 1, 1000)
ListeF = Sequence(Random[1, 6], i, 1, 1000)
ListeE = Sequence(Random[1, 6], i, 1, 1000)
ListeD = Sequence(Random[1, 6], i, 1, 1000)
ListeB = Sequence(Random[1, 6], i, 1, 1000)
ListeC = Sequence(Random[1, 6], i, 1, 1000)
Ergebnis = Sequence(Element[ListeA, i] + Element[ListeB, i] + Element[ListeC, i] + Element[ListeD, i] + Element[ListeE, i] + Element[ListeF, i] + Element[ListeG, i] + Element[ListeH, i] + Element[ListeI, i] + Element[ListeJ, i], i, 1, 1000)
n = BarChart(Ergebnis, 1)