Question

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

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

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 элементов)