Используя условие задания, определи результат выполнения программы. Измени в программе перестановку элементов массива, на перестановку без ввода дополнительной переменной. Набери программу в компиляторе Python, исправь ошибки, если они есть. Откомпилируй программу. ​

9 км, путь К-Н-М-О

Объяснение:

Из пункта К можно попасть в Л или Н, при этом изначально для нас предпочтительнее Н, т.к. он короче на 1 км.

Глянем теперь на конечный пункт - из пункта О можно попасть только в пункт М, таким образом нам необходимо найти кратчайший путь из пункта К в пункт М.

Рассмотрим наиболее предпочтительный путь для начала: К-Н.

Можем ли мы попасть из пункта Н в путь М сразу? Да, за 4 км.

Сравним с ситуацией в пункте Л. Можем ли мы попасть в пункт М сразу? Да, тоже за 4 км.

Поскольку из Л и Н попасть в пункт М можно за 4 км, то мы сразу можем понять, что правильный путь это К-Н, потому что он выгоднее на 1 км изначально, а в дальнейшем пути одинаковые.

В результате чего у нас получается путь К-Н-М-О или 2+4+3 = 9 км.

Надеюсь, логика понятна :)

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