Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
VeRa2KoToVa1
25.02.2023 07:03 •
Информатика
Дан одномерный массив а(30). найти все элементы массива, кратные 3 и среди них найти наименьшее. vba
Показать ответ
Ответ:
silina2018
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 оценок)
Популярные вопросы: Информатика
marat2002671
22.10.2022 08:11
Укажите с стрелок соответствие ячеек левой таблицы ячеек правой таблицы...
Шпунтя
20.02.2021 02:57
Какие действия и с каким объектом оперативной системы необходимо выполнить, чтобы начать работу с готовой базой данных...
allaberenowa68p0b0d1
20.10.2020 00:56
Пароль для кодового замка состоит из 4 различных цифр из следующего набора: 1, 2, 3, 4, 5, при этом чётные цифры (2 и 4) должны присутствовать обязательно. Вася записал...
Валерия3445
01.05.2021 08:28
Надо написать программу принимающую на вход строку - разделитель, необходимо распечатать числа от 1 до 5, выводя между ними введенный разделитель на Python....
skrylnikvozvyb6
09.03.2022 21:52
Розробити програмний проект у середовищі Python, за до якого буде перевірятись, чи є простим введено число....
ксения1279мпсалч
08.10.2022 06:10
RU: Напишите процедуру, которая выводит на экран переданное ей число в негадвоичной системе счисления, основание которой равно (–2). Например, 1011(-2)=1•(-2)3 +0•(-2)2...
Аня20041334
18.08.2020 01:28
1) Рассматривается множество целых чисел, принадлежащих числовому отрезку [2894;174882], которые оканчиваются цифрой 8 и у которых сумма цифр больше 22. Найдите количество...
ilyacher123
13.05.2020 11:30
3 часа играл на компьютере в гта, резко потемнел экран, нажал на перезагрузку. Появилось вот это и комп начал сильно гудеть. Что это может быть?...
avanesyan20011
25.08.2021 01:11
Повторение слов Напишите программу, которая будет считывать слово или выражение, затем будет выводить данное слово N количество раз на N строках. В первой строке вводится...
мериэмс
23.04.2020 15:58
Дано 5 числовых констант: А=35, К=12, T=2, P=89, Z=1. Вывести значения этих констант на экран. Вычислить среднее арифметическое этих чисел. Вывести результат на экран...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 & " - минимальный")