Найдите два различных числа в массиве, сумма которых наиболее близка к p - VB

Формулировка задачи:

1.Дан массив и число p. Найдите два различных числа в массиве, сумма которых наиболее близка к p 2. Дан массив из n*m элементов.Найдите наибольший элемент массива в каждой строке


textual

Код к задаче: «Найдите два различных числа в массиве, сумма которых наиболее близка к p - VB»

Option Explicit
Dim N%, i%, j%, P%, min%, S%, i1%, i2%
 
Private Sub cmdD_Click()
    Randomize Timer
    Cls
    N = Val(txtN.Text)
    P = Val(txtP.Text)
    ReDim A(N) As Integer
    
    For i = 1 To N
        A(i) = 100 * Rnd
    Next
    min = 1000
    
    For i = 1 To N - 1
    For j = i + 1 To N
        If A(i) <> A(j) Then
            S = A(i) + A(j)
            If min > Abs(S - P) Then
                min = Abs(S - P)
                i1 = i
                i2 = j
            End If
        End If
    Next j, i
            
    Print A(i1); " + "; A(i2); " = "; A(i1) + A(i2)
    Print
    For i = 1 To N
        Print A(i)
    Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник