RosettaCodeData/Task/Pick-random-element/XPL0/pick-random-element.xpl0

6 lines
138 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
code Ran=1, Text=12;
int List;
[List:= ["hydrogen", "helium", "lithium", "beryllium", "boron"]; \(Thanks REXX)
Text(0, List(Ran(5)));
]