Дан одномерный массив А размерности…

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