Задать вопрос
ИнформатикаИнформатика
11 ноября, 15:14

В массиве, состоящем из 20 элементов (значения заданы случайным образом). Найти все элементы, кратные 3 и 5. Сколько их?

решить задачу в программе Pascal ABS

+1
Ответы (1)
  1. 11 ноября, 18:34
    0
    Sub love01 ()

    Dim a (999) As Integer, Count35 As Integer

    For i = 0 To 999

    a (i) = Int (Rnd * 1000)

    Count35 = Count35 - ((a (i) Mod 3 = 0) or (a (i) Mod 5 = 0))

    Next

    MsgBox Count35

    End Sub

    т. е. 8 элементов)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В массиве, состоящем из 20 элементов (значения заданы случайным образом). Найти все элементы, кратные 3 и 5. Сколько их? решить задачу в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Укаждите условия, истинные при х=2, у=-7, z=9. а) abs (x) + abs (y) = z б) z-y=abs (x) в) abs (x+y) = z
Ответы (1)
Укажите условия, истинные при x=2, y=-7, z=9. a) abs (x) + abs (y) = z b) z-y=abs (x) в) abs (x+y) = z
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
В массиве состоящем из 10 случайных элементов в интервале [-15; 15], определить: -последний максимум -минимум среди положительных элементов -количество max элементов. Pascal abc, 9 класс
Ответы (1)
Помогите с ответом
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа
Главная » Информатика » В массиве, состоящем из 20 элементов (значения заданы случайным образом). Найти все элементы, кратные 3 и 5. Сколько их? решить задачу в программе Pascal ABS
Регистрация Забыл пароль