Задача в visual basic: Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию.

[Екатерина23]

Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет - вывести 0

[Sasha_Smirnov]

ЭВМ иногда делит неточно, поэтому для надёжности использовал округление.

Запуск в документах Word по F5. Во втором добавил проверку чередования минусов (иначе программу легко обмануть).

[Sasha_Smirnov]

На самом деле и вторую (хоть и не легко) можно обмануть, например массивом

a = Array(1, 300, 90, 27000, 810000, 24300000)

Вообще задача тонкая:

Сообщение от Екатерина23

Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет - вывести 0

Так посмотреть — элементы множества, например, {2, 18, 6} — образуют! Но уже комбинаторика, 10-й класс...

Делить каждый элемент, кроме 1-го, на предыдущий мне кажется ненадёжным (а вам?), поэтому попробую так: перемножать их попарно от краёв к середине: если всё равно — прогрессия геометрическая.