Присутствует ли в массиве два равных соседних элемента? Если да, то под какими номерами имеет место первое равенство? Public Sub uuu()
Dim x As Integer
Dim m As Integer
Dim s As Integer
Dim i As Integer
m = InputBox("Введите число")
MsgBox ("Вводите числа")
i = 0
s = 0
Do
i = i + 1
x = InputBox("Введите " & i & "число")
s = s + x
Loop Until s > m
MsgBox ("Количество введенных чисел " & i)
End Sub

dianasmertiyk    3   17.04.2021 10:29    2