Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
rendly21
24.11.2022 08:56 •
Информатика
Дан одномерный массив а(30). найти все элементы массива, кратные 3 и среди них найти наименьшее. vba
Показать ответ
Ответ:
astraelenap01fez
01.10.2020 19:11
Если массив уже заполнен, то данная задача будет решена следующим фрагментом программы:
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 & " - минимальный")
0,0
(0 оценок)
Популярные вопросы: Информатика
gidra2281337
10.04.2021 14:13
Необходимо провести Робота по коридору шириной в одну клетку из начального положения (◊) до конца коридора, закрашивая при этом все клетки коридора, которые имеют выход. Выходы размером...
twicгр66
14.06.2020 07:41
Вдокументах используется гиперссылка из ссылку определите два признака гиперссылки...
КирОаоырчлцрслчь
22.01.2021 03:01
Количество информации в сообщении,содержащим 4096 символов,составил 1/1024 часть мбайта.какова мощность алфавита,с которого было записать сообщение?...
KimTaeHyung3012
09.02.2020 01:03
3. Переведите в двоичную систему десятичные числа 271, 564, 103, 407. Перевелите в лесятичную систему двоичные числа 10011101, 1100101001110110,101111001011001011100111....
СоедвалиеваСофия
11.10.2022 10:45
Вычислите: (46(8) +10111(2)) *11(2) -С(16) В скобках это не степени, цифры расположены снизу, а не сверху...
Priveee
17.07.2020 09:11
Как доказать что в банке налит именно mgso4 а не какое либо другое вещество. 8 класс...
FarLime
17.07.2020 09:11
Мальчик массой 60 кг стоит на лыжах,длина которых 1.8 м,а ширина 15см.определите давление мальчика на снег....
NickolaiDress
17.07.2020 09:11
Із вершини в рівностороннього трикутника абц до його площини проведено перпендикуляр вм . знайдіть сторону трикутника, якщо відстань від точки м до сторони ас дорівнює 4 см , а до...
Пездюк1
17.07.2020 09:11
Сколько граммов бертолетовой соли выкристаллизуется из 70 г. насыщенного при 80 ºс раствора при охлаждении его до 10 ºс? растворимость соли при 80 ºс – 40 г., а при 10 ºс – 5 г....
21122007
17.07.2020 09:11
Sin2x+корень из 2*sinx=2cosx+корень из 2 [от пи, до 5пи/2]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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 & " - минимальный")