Максимальный элемент среди минимальных - VBA

Формулировка задачи:

Дан массив A размера N и целые числа K и L (1≤K<L≤N). Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, включая эти элементы. Ошибка: Subscript out of range. Что тут не так?

                    Листинг программы
                
 
                        
                          
                    
Sub bb()
Dim A(), K, L, N, i As Integer
K = 5
L = 7
N = 10
 
                    Randomize Timer
                    For i = 1 To N
                    A(i) = Int(-10 + Rnd(1) * 21)
                    Cells(i, 1).Value = A(i)
                    Next i
            i = K
                Do While i <= K + (L - K) / 2
                    If i <> (L - i + K) Then
                     A(i) = A(i) + A(L - K + i)
                A(L - K + i) = A(i) - A(L - K + i)
                A(i) = A(i) - A(L - K + i)
                i = i + 1
 
                End If
                 Loop
              For i = 1 To N
        Cells(i, 3).Value = A(i)
        Next i
         
End Sub

Решение задачи: «Максимальный элемент среди минимальных»

textual
                            Листинг программы 
                        
 
                        
                          
                    
  i = K
  j = L
  Do While i < j
    t = A(i)
    A(i) = A(j)
    A(j) = t
    i = i + 1
    j = j - 1
  Loop

Оцени полезность:

8 голосов , оценка 3.75 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы