Мусье хватит - мусье потрет-побанит? Или мусье жаждет продолжить обзор персоналий?

Но зачем вникать так глубоко, когда можно ухватиться хоть за что-то и отстаивать что-нибудь свое, не важно какое, но свое, родное.

P.S. Вариант не предложен, а демагогия - суть признание отсутствия обоснованных возражений.
P.Р.S. Отдельное спасибо за ("ввиду каких-то своих соображений" != "по неведомым причинам") - очень комично вышло.

Хотя конечно можно сказать заказчику - ты хочешь не это, и вообще ничего не понимаешь, сбацаю-ка я тебе вариант на 2147483647 чисел, ибо так гораздо круче ХКТТБ.

Так "прилепи", в чем проблема-то.  Массивы - в посте #1

Не вопрос. Держи.

SuperUniversalArray := {1: "Один", 12: "Дюжина", 15: "Сгенерировано число, отвечающее условиям задачи, но по неведомым причинам отсутствующее в массиве заказчика (15)", 100500: "Стопиццот"}
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, нечетные
Gui, add, radio, vEven, четные
Gui, add, edit, r2 vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven 
    Random, Rand, 1, 2147483647
    GuiControl,, edit, % SuperUniversalArray[Rand*2 - UnEven] ? SuperUniversalArray[Rand*2 - UnEven] : Rand*2 - UnEven
    return

Теперь твоя очередь. 2147483647 чисел в виде пары массивов - в студию!
Так яснее в чем на самом деле "проблема-то"?

Зато скрипт более универсальный

Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r20 vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven
    GuiControlGet, edit
    Arr := UnEven ? "Четные" : "Нечетные"
    Random, Rand, 1, % %Arr%.MaxIndex()
    GuiControl,, edit, % edit . %Arr%[Rand] . "`n"
    return

Ой ли...

Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, нечетные
Gui, add, radio, vEven, четные
Gui, add, edit, vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven 
    Random, Rand, 1, 2147483647
    GuiControl,, edit, % Rand*2 - UnEven
    return

А массив-то с наименованиями прилепить нетрудно, причем только для тех чисел, которые должны их иметь по замыслу.

Зато скрипт более универсальный

Нечетные := Array("Один", "3" , "5", "7", "9", "11", "13")
Четные := Array("2", "4", "6" , "8", "10", "Дюжина", "14", "16")
Gui, add, button, gGen, Сгенерировать
Gui, add, radio, vUnEven Checked, Четные
Gui, add, radio, , Нечетные
Gui, add, edit, r20 vedit
Gui, Show
return

Gen:
    GuiControlGet, UnEven
    GuiControlGet, edit
    Arr := UnEven ? "Четные" : "Нечетные"
    Random, Rand, 1, % %Arr%.MaxIndex()
    GuiControl,, edit, % edit . %Arr%[Rand] . "`n"
    return

Так новое число уходит все ниже и ниже и приходится листать, как-нибудь по другому можно? Ну или другой вариант, новое число остается наверху, а старое уходит вниз. Заранее спасибо

Извращенцы