Составить блок-схему и написать на vba функцию, вычисляющую для одномерного массива количество элементов, чьи номера кратны 3 (а(3), a(6), a(9)…)

Ответ:

sashademidova12345

09.07.2020 14:19

Function Strange(a() As Integer) As Integer
    Dim n As Integer, i As Integer
    n = 0
    For i = LBound(a) To UBound(a)
        If i Mod 3 = 0 Then n = n + 1
    Next i
    Strange = n
End Function

0,0(0 оценок)

Популярные вопросы: Информатика

1246881

03.09.2020 09:29

По информатике решите в паскале плз : 3 3.дано натуральное трехзначное число. определить и вывести на экран большую цифру этого числа....

ладнобудеттакойник

20.03.2022 18:27

Напишите наименьшее целое число Z, для которого истинно высказывание: НЕ (Z 12) И НЕ (Z НЕЧЕТНОЕ)...

viktoriag373

18.01.2020 00:10

Игра в буквы. Первая строка состоит из одной латинской буквы А . Каждая следующая строка создается по следующему алгоритму: сначала записывается буква, чей порядковый номер...

Ghhgfgh

30.09.2021 10:16

Чем определяется объем знаний человека, получающего сообщение? Что такое вероятностный подход измерения объема информации? Чему равно сообщение, уменьшающее неопределенность...

Ккамв

01.05.2020 01:05

. Ақпараттың өлшем бірлігі не үшін керек? Бит дегеніміз не?Байт, килобайт, мегабайт және гигабайт дегеніміз не?Өлшем бірліктер өзара қалай байланысты?Берілген ақпараттың өлшем...

makoldinvyacheoxyw3a

11.05.2020 11:09

Для групповых операций с файлами используются маски имён файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых...

катя120981

22.07.2020 19:07

Для массива А, состоящего не более чем из 70 целых чисел найти сумму чётных элементов со значениями [C, D], C, D заданные числа. Delphi В принципе, как написать этот массив...

Vasilisa5111

06.05.2020 17:50

Гринч, известный как похититель Рождества, в костюме Санта Клауса весит на 4 кг больше, чем Гринч без костюма. Если взвесить 6 Гринчей в костюме Санта Клауса и 4 Гринча без...

Ларкия

24.07.2022 21:50

Письменно в тетради перевести следующие числа из n-ой СС в 10 СС: 7688 (9); 432,1 (5); 120 (3); 102,31 (4); 101,1 (2)....

мари13121

01.10.2021 19:27

э У скільки разів відрізняється вага дубового бруска, розміри якого 50*30*10 см, від ваги дубового кубика з ребром 30 см2 Густина дубу 0,7 г/см3....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку