В массиве, состоящем из 20 элементов( значения заданы случайным образом). Найти все элементы, кратные 3 и 5. Сколько их?
решить задачу в программе Pascal ABS
решить задачу в программе Pascal ABS
More Questions From This User See All
Answers & Comments
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 элементов)