В одномерном массиве x(n) поменять местами максимальный и минимальные элементы
В одномерном массиве x(n) поменять местами максимальный и минимальные элементы
2009-11-22 07:00 Александр
В одномерном массиве x(n) поменять местами максимальный и минимальные элементы
Dim y() As Integer
minPos = 1
maxPos = 1
Min = x(1)
Max = x(1)
For i = 2 To n
If x(i) < Min Then
Min = x(i)
minPos = i
End If
If x(i) > Max Then
Max = x(i)
maxPos = i
End If
Next i
x(minPos) = Max
x(maxPos) = Min
For i = 1 To n
ReDim Preserve [...]