Напишите программу позволяющую найти кол-во пар элементов которые делятся на 3. - VB
Формулировка задачи:
Дан одномерный массив, элементы могут принимать от -10000 до 10000 включительно. Напишите программу позволяющую найти кол-во пар элементов которые делятся на 3.
Решение задачи: «Напишите программу позволяющую найти кол-во пар элементов которые делятся на 3.»
textual
Листинг программы
ReDim x(n) As Long Randomize Timer For i = 1 To n x(i) = 20000 * Rnd - 10000 Next For i = 1 To n - 1 For j = i + 1 To n If x(i) Mod 3 = 0 And x(j) Mod 3 = 0 Then k = k + 1 Next Next Print "k ="; k