Der/Die Nächste

Mit F9 bzw. Strg+R beginnen.

n = 16 (slider from 1 to 50, step 1)
K = Sequence(Text[i], i, 1, n)
L1 = Sequence(Random[0, 1000000000], i, 1, n)
L2 = Sort(L1)
L3 = Sequence(IndexOf[Element[L2, i], L1], i, 1, n)
L = Sequence(n)
Text1 = LaTeX(L, true, true)
Text2 = LaTeX(L3, true, true)
F9 = Random(1, 2)
A1 = 20
N = If(Object["A1"] ≟ 0 ∨ Object["A1"] > n, "", Element[K, Element[L3, Object["A1"]]])
Text3: "" + N + ""