не знаю QBasic, ну точнее не помню уже что там по словарю, но пищу к размышлению дам:
1. заполнить первый(нулевой?) индекс массива рандомом.
2. проходя по первому фором делать рандом (NUM = Rand(0, 100) - это я не поленился загуглить=)) и если меньше или равен 50 - то кидать в массив(второй/первый индекс) -1, а больше - кидать число из первого индекса.
3. при "рендеринге" отсылать -1 в dev/null =)