Дан одномерный массив А размерности N.Поменять местами его минимальный и максимальный значения элементов.

Dim i As IntegerDim min As IntegerDim max As IntegerDim N As IntegerN = CInt(InputBox("Введите N"))Dim A(N) As Integermin = 0max = 0For i = 0 To N     If A(i) < A(min) Then min = i     If A(i) < A(max) Then max = iNexti = A(min)A(min) = A(max)A(max) = i