Найти цифры близнецы в одномерном массиве - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы