JayBhagavan, не работает или может код не правильно поставил
Код
Sub prog()
Dim I, min As Integer
min = 9999
For I = 3 To 10
If (min <> 0) And (min > Cells(2, I)) Then
min = Cells(2, I)
End If
Next I
Cells(13, 3) = min
End Sub
Sub progr() Dim I, min As Integer For I = 3 To 10 Cells(11, I) = Int(Rnd * 9) Next I min = Cells(11, 2) For I = 3 To 10 If min > Cells(I, 2) Then min = Cells(I, 2) End If Next I Cells(13, 3) = min End Sub
Найти путь минимальной длины между начальной и конечной вершинами сети методом динамического программирования (цифры, приписанные дугам сети, означают расстояния между соответствующими вершинами) для рис