Войти Регистрация Спроси ai-bota

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

Показать ответ

Ответ:

Olganot

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 оценок)

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

аььарпашишки

29.03.2021 13:46

Придумайте и опишите эт для вычесления общей стоимости покупок в магазине, если известны стоимость 1 еденицы товара (или 1 кг) и количество купленных единиц (описать все формулы таблицы,...

АлинаЛог

14.09.2021 07:15

Расшифркйте это дз по информатикеXHg1Q1x4NzhceDM1XHgzOVx4NUNceDc4XHgzNVx4MzdceDVDXHg3OFx4MzdceDMwXHg1Q1x4NzhceDM3XHgzMlx4NUNceDc4XHgzNFx4NDRceDVDXHg3OFx4MzZceDQyXHg1Q1x4NzhceDMzXHgzNVx4NUNceDc4XHgzN1x4MzFceDVDXHg3OFx4MzZceDMxXHg1Q1x4NzhceDM3XHg0MVx4NUNceDc4XHgzNVx4MzZceDVDXHg3OFx4MzRceDQ1XHg1Q1x4NzhceDM1XHgzMVx4NUNceDc4XHgzN1x4NDFceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDMzXHgzMFx4NUNceDc4XHgzNVx4NDFceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHgzNFx4NUNceDc4XHgzN1x4MzdceDVDXHg3OFx4MzZceDMzXHg1Q1x4NzhceDM0XHgzN1x4NUNceDc4XHgzNFx4NDFceDVDXHg3OFx4MzdceDM0XHg1Q1x4NzhceDM0XHg0Nlx4NUNceDc4XHgzNFx4MzhceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHg0MVx4NUNceDc4XHgzNlx4MzJceDVDXHg3OFx4MzZceDQzXHg1Q1x4NzhceDM1XHgzNlx4NUNceDc4XHgzM1x4MzJceDVDXHg3OFx4MzVceDM5XHg1Q1x4NzhceDMzXHgzMlx4NUNceDc4XHgzM1x4MzFceDVDXHg3OFx4MzVceDM3XHg1Q1x4NzhceDM2XHgzNVx4NUNceDc4XHgzNlx4NDRceDVDXHg3OFx4MzVceDMyXHg1Q1x4NzhceDM0XHgzOFx4NUNceDc4XHgzNFx4NDZceDVDXHg3OFx4MzVceDM3XHg1Q1x4NzhceDM3XHgzMFx4NUNceDc4XHgzNlx4MzhceDVDXHg3OFx4MzZceDM1XHg1Q1x4NzhceDM1XHgzNFx4NUNceDc4XHgzNlx4NDNceDVDXHg3OFx4MzdceDMzXHg1Q1x4NzhceDM1XHgzOVx4NUNceDc4XHgzNlx4NDRceDVDXHg3OFx4MzNceDMxXHg1Q1x4NzhceDM0XHg0Nlx4NUNceDc4XHgzNlx4MzRceDVDXHg3OFx4MzZceDQzXHg1Q1x4NzhceDM3XHgzMFx4NUNceDc4XHgzNFx4MzhceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHg0NVx4NUNceDc4XHgzNlx4NDNceDVDXHg3OFx4MzRceDQ0XHg1Q1x4NzhceDM0XHg0NFx4NUNceDc4XHgzNlx4NDJceDVDXHg3OFx4MzVceDQxXHg1Q1x4NzhceDMzXHgzM1x4NUNceDc4XHgzNVx4MzlceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM0XHg0NFx4NUNceDc4XHgzM1x4MzVceDVDXHg3OFx4MzZceDM1XHg1Q1x4NzhceDM2XHg0NFx4NUNceDc4XHgzNVx4MzJceDVDXHg3OFx4MzRceDM4XHg1Q1x4NzhceDM1XHgzMlx4NUNceDc4XHgzNlx4NDFceDVDXHg3OFx4MzRceDMyXHg1Q1x4NzhceDM2XHgzOFx4NUNceDc4XHgzNVx4MzZceDVDXHg3OFx4MzNceDMwXHg1Q1x4NzhceDMzXHgzMVx4NUNceDc4XHgzM1x4MzJceDVDXHg3OFx4MzVceDM5XHg1Q1x4NzhceDMzXHgzMlx4NUNceDc4XHgzM1x4MzVceDVDXHg3OFx4MzRceDQ1XHg1Q1x4NzhceDM2XHgzNFx4NUNceDc4XHgzNVx4MzdceDVDXHg3OFx4MzRceDM2XHg1Q1x4NzhceDM0XHgzOVx4NUNceDc4XHgzNVx4MzVceDVDXHg3OFx4MzZceDQ1XHg1Q1x4NzhceDM1XHgzMlx4NUNceDc4XHgzNlx4MzlceDVDXHg3OFx4MzVceDMxXHg1Q1x4NzhceDM1XHgzNFx4NUNceDc4XHgzM1x4MzBceDVDXHg3OFx4MzNceDM5...

taniussa1

17.01.2022 21:23

Якщо тебе немає інтернеті то ти не існуеш обґрунтуйте...

таисия85

14.08.2020 21:42

Кто знает правильно ответ? В конце елка...

enterfight

27.12.2022 05:07

Вычислите значения выражений (2 + 2 = 4) u (7 15) = (3 + 5 = 9) или (7 8) = не (15 делится на 3) = (число 5 - четное) и (5 3) = (3 7) или (5 8) = (5 7) или (8 6) = не (число 7 - четное)...

PoliLan

08.07.2020 06:40

Прокомментируйте понятия: отказ, сбой, ошибка, побочное влияние...

Anton2657

21.01.2023 03:52

Что такое à ( логическая операция ) ?...

olyamin0

01.05.2023 08:52

Какое число является наибольшим? 555 12 555 8 555 16 555 10...

vanuhask12

27.12.2021 10:47

Составить рассказ по картине. а.дейнека. окраина москвы. ноябрь 1941г. гтг...

aidarisiev80

27.12.2021 10:47

Составит 5 предложений используя качественные прилогательные.....

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

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