это просто надо знать имена не могут начинаться с цифры, нижн подчеркивания , не могут быть русскими буквами, не могут начинаться с знака препинания , но в них могут быть нижн подчерк
Ответ
1,2,5,6,8,9
--------------------------------------Вроде так--------------------------------------
1)нет 2)хз 3)да 4)да 5)нет 6)да 7)нет 8)да 9)1000 10)да 11)нет 12)да 13)да 14)хз 15)нет 16)хз 17)хз
Высказывания это 1 4 5 8 10 11 12 14 15 17
Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i
For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub
Вагоны
контролер
пассажиры
2/1/4 не могу дагодаться