Напишите программу позволяющую найти кол-во пар элементов которые делятся на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
