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

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

Question

Информатика

Поля

25 марта, 21:17

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

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

+5

Ответы (1)

Знаете ответ на вопрос?

Беля · Answer 1

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. Сколько их?решить задачу в программе Pascal ABS

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

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