19 lines
335 B
Text
19 lines
335 B
Text
arraybase 1
|
|
dim flag = {"Red","White","Blue"}
|
|
dim balls(9)
|
|
|
|
print "Random: |";
|
|
for i = 1 to 9
|
|
kolor = (rand * 3) + 1
|
|
balls[i] = flag[kolor]
|
|
print balls[i]; " |";
|
|
next i
|
|
print
|
|
|
|
print "Sorted: |";
|
|
for i = 1 to 3
|
|
kolor = flag[i]
|
|
for j = 1 to 9
|
|
if balls[j] = kolor then print balls[j]; " |";
|
|
next j
|
|
next i
|