Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '11.	В стае из КС собак если самая сильная собака сильнее второй не более, чем на 1%, то они дерутся. 
        '    При этом побеждает сильнейшая собака, но они обе теряют по 10% силы каждая. 
        '    Сколько будет драк в стае, если i-я собака имеет силу в Сi ?
        Randomize()
        Dim Dogs(20) As Integer
        For i = 0 To 20
            Dogs(i) = 100 * Rnd() + 1
        Next
        Dim maxStr1, maxStr2 As Integer
        maxStr1 = Dogs(0)
        maxStr2 = Dogs(0)
        Dim a, b, c As Integer
        b = 0
        Do
            c = b
            For i = 1 To 20
                If maxStr1 < Dogs(i) Then
                    maxStr1 = Dogs(i)
                    a = i
                End If
            Next
            For i = 1 To 20
                If i <> a Then 'Проверяет, совпадает ли индекс текущей с индексом прошлой самой сильной собаки с целью ее исключить
                    If maxStr2 < Dogs(i) Then
                        maxStr2 = Dogs(i)
                    End If
                End If
            Next
            If Math.Abs(maxStr1 - maxStr2) = 1 Or maxStr1 - maxStr2 = 0 Then
                maxStr1 = maxStr1 - 10
                maxStr2 = maxStr2 - 10
                b = b + 1
            End If
        Loop Until c = b Or b = 0
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '11.	В стае из КС собак если самая сильная собака сильнее второй не более, чем на 1%, то они дерутся. 
        '    При этом побеждает сильнейшая собака, но они обе теряют по 10% силы каждая. 
        '    Сколько будет драк в стае, если i-я собака имеет силу в Сi ?
        Randomize()
        Dim Dogs(40) As Integer
        For i = 0 To 40
            Dogs(i) = 150 * Rnd() + 1
        Next
        Dim maxStr1, maxStr2 As Integer
        maxStr1 = 0
        maxStr2 = 0
        Dim b, c As Integer
        b = 0
        Do
            c = b
            For i = 1 To 40
                If Dogs(maxStr1) < Dogs(i) Then
                    maxStr1 = i
                End If
            Next
            For i = 1 To 40
                If i <> maxStr1 Then 'Проверяет, совпадает ли индекс текущей с индексом прошлой самой сильной собаки с целью ее исключить
                    If Dogs(maxStr2) < Dogs(i) Then
                        maxStr2 = i
                    End If
                End If
            Next
            Dim x,z As double
            x = (Dogs(maxStr1) * 100) / 150 'Находим процентную часть от максимума каждой из сильнейших
            z = (Dogs(maxStr2) * 100) / 150
            If Math.Abs(x - z) <= 1 Then
                Dogs(maxStr1) = Dogs(maxStr1) - 10
                Dogs(maxStr2) = Dogs(maxStr2) - 10
                b = b + 1
            End If
        Loop Until c = b Or b = 0
        TextBox1.Text = b
    End Sub
End Class