Найти сумму цифр рандомных чисел в массиве - VBA

Узнай цену своей работы

Формулировка задачи:

"В заданном одномерном массиве целого типа найти и напечатать сумму цифр всех элементов массива. Использовать процедуру нахождения суммы цифр числа." Программа выдает ошибку, если в массиве попадается однозначное число, что нужно добавить, чтобы однозначные числа добавлялись в summ без всяких подсчетов?

Решение задачи: «Найти сумму цифр рандомных чисел в массиве»

textual
Листинг программы
Function Summ(arr)
    Dim v
    For Each v In arr
        Summ = Summ + v
    Next
End Function

Оцени полезность:

5   голосов , оценка 4.8 из 5
Похожие ответы