Задать вопрос
ИнформатикаИнформатика
31 июля, 04:59

Дан одномерный массив А (30). Найти все элементы массива, кратные 3 и среди них найти наименьшее. VBA

+1
Ответы (1)
  1. 31 июля, 06:20
    0
    Если массив уже заполнен, то данная задача будет решена следующим фрагментом программы:

    For i = 1 To 30

    If (A (i) Mod 3) = 0 Then

    s = s + Str (A (i)) + "; "

    If min > A (i) Then min = A (i)

    End If

    Next i

    MsgBox ("Кратны 3: " & s & min & " - минимальный")
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан одномерный массив А (30). Найти все элементы массива, кратные 3 и среди них найти наименьшее. VBA ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой. 2.
Ответы (1)
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Сколько четвёртых и сколько восьмых долей единицы в данном числе 1/2, 1 1/2,2 1/4,
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа
Главная » Информатика » Дан одномерный массив А (30). Найти все элементы массива, кратные 3 и среди них найти наименьшее. VBA
Регистрация Забыл пароль