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

0 голосов
55 просмотров

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

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


Информатика (35 баллов) | 55 просмотров
Дан 1 ответ
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 элементов)
(3.9k баллов)