на доске записаны 10 чисел среди всех попарных произведений ровно 20 являются отрицательными сколько из и

Лень решат математически, когда можно наваять программу на VBA ))))
код ее:

Sub ppp2()
Columns(11).ClearContents
For kk = 1 To 9
Cells(kk, 11) = 0 ' тут храним число отриц. произведений
For ii = 1 To 8
For jj = ii + 1 To 9
If Cells(kk, ii) * Cells(kk, jj) < 0 Then
Cells(kk, 11) = Cells(kk, 11) + 1
End If
Next jj
Next ii
Next kk
End Sub

а вот так выглядит результат:


4 и 5 варианты подходят под условие задачи)) )
последний вариант дает 0 отрицательных произведений)))