НОД и НОК элементов массива

[cent]

Да, и функция работает с одним непрерывным диапазоном типа
[A1:C5] или [B5:F8] и тп

Хотя..... и это можно поправить

[saleens7]

Ясно! Просто огромное вам спасибо!!! Вы не представляете как меня выручили!! Я просто всего 3 месяца программирую, опыт маленький да почти нулевой,а тут препод ещё ничё не объясняет...вообщем нехвотало ума собрать эту задачу... Чесно говоря для меня этот алгоритм очень сложным кажеться... без посторонней помощи не разберусь в нём. Завтра пойду сдавать вашу задачу без неё меня бы недопустили к экзамену... Ещё раз огромное спасибо! А вы в какие среды программирования знаете?

[cent]

Любитель помучать VBA в Excel
но опыт пару лет

[saleens7]

Круто! Вы хорошо разбераетесь!!! Я делал нод и нок целый месяц.... и так и сяк,не получалось.. А вы за пол часа нод и нок собрали... я в шоке!!! Можно я к вам буду обращаться за помощью по Bisual Basic-у? А то мне не от кого учиться программированию...

[cent]

Чем смогу - помогу

[saleens7]

Благодарю за отзывчивость! А как вас завут?

[IgorGO]

Да, наличие алгоритма существенно упрощает задачу.
Очередной повод преклонить колено перед математическим талантом Эйлера. Осмелюсь предложить свой вариант. ArrGCD возвращает НОД для массива, используя GCD, которая рекурсивно вычисляет НОД для пары чисел. Проверок нет, сортировка не нужна.

Function ArrGCD(a As Range) As Long
  Dim G As Long
  G = a(1)
  ArrGCD = G
  If a.Count = 1 Then Exit Function
  For i = 2 To a.Count
    G = GCD(IIf(G < a(i), G, a(i)), IIf(G < a(i), a(i), G))
  Next
  ArrGCD = G
End Function

Function GCD(a As Long, b As Long) As Long
  Dim d As Long
  d = b Mod a
  If d = 0 Then GCD = a Else GCD = GCD(d, a)
End Function

[cent]

Да интересный ход

[saleens7]

Да!! Тоже вариант! Большое спасибо за помощь! Да он куда проще! Что бы я без вас делал... Спасиб!

[saleens7]

Большое спасибо вам! Я сдал вашу задачу,ту которую предложил CENT. Наш препод офигел когда увидел этот код и помоему с трудом въехал....