Найти цифры близнецы в одномерном массиве - VB
Формулировка задачи:
Нужно найти цифры близнецы в одномерном массиве. Близнецами являются цифры, разность которых ровна 2. Например, 7 и 5, 2 и 0, 3 и 1.
Вот написал программу, но она иногда выводит неверно, где ошибка, подскажите:
Решение задачи: «Найти цифры близнецы в одномерном массиве»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Integer Dim i As Integer, j As Integer, n As Integer, x As Integer, k As Integer Cls k = 0: x = 2: n = 10: ReDim A(1 To n) Randomize For i = 1 To n A(i) = Fix(Rnd * 10) Print Str(A(i)) & " "; Next i Print For i = 1 To n For j = 1 To n If (A(i) - A(j)) = x Then Print Str(A(i)) & "-" & A(j) k = k + 1 End If Next j Next i Print "Число близнецов = " & k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д