В заданном одномерном массиве целого типа найти и напечатать совершенные числа, или сообщить, что таких нет. VBA

[SkyGir]

Доброе утро, подскажите, пожалуйста,решение моего вопроса, спасибо

[p51x]

А что непонятно?

[Аватар]

решение моего вопроса

либо ищи делители и их сумму каждого числа массива, либо сравнивай с известными совершенными числами: 6, 28, 496, 8128, 33550336. Дальше уже замиллиардные )

[SkyGir]

Спасибо за отзывчивость(Извините, за эстонский ответ, только прочитал)

[SkyGir]

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x%
    n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim M(n) As Integer
    Randomize
    For i = 1 To n
        M(i) = Int(500 * Rnd + 1)
Next i
For i = 1 To n
If M(i) = 6 Or M(i) = 28 Or M(i) = 496 Then x = M(i)
Next i
If x > 0 Then
MsgBox "Совершенные числа, присутствующие в массиве:" & M(i)
Else: MsgBox "Совершенных чисел нет"
End If
End Sub

Вот наваял (знаю, что х будет=6 или 28 или 496, но это не суть важно, мне кол-во элементов не нужно)
Подскажите, что еще не так, постоянно выдает, что чисел нет

[Serge_Bliznykov]

Сообщение от SkyGir

Подскажите, что еще не так, постоянно выдает, что чисел нет

выведите массив и посмотрите - вероятность выпадения 3 чисел из 500 равна 3/500 = 0.006 = 0.6%
нужно примерно 150 раз запустить программу, чтобы хоть раз выпало нужное число.
ну или откажитесь от random и задавайте числа вручную.

или сделайте random от 1 до 30, вероятность повысится.

Сообщение от SkyGir

If M(i) = 6 Or M(i) = 28 Or M(i) = 496 Then x = M(i)

Сообщение от SkyGir

MsgBox "Совершенные числа, присутствующие в массиве:" & M(i)

так можно увидеть только одно число.
заполните массив сами, укажите несколько совершенных чисел и посмотрите, что произойдёт

[SkyGir]

Спасибо за отзывчивость

[Serge_Bliznykov]

а дописал свой пост выше. обратите внимание! В коде у Вас ошибка.