22
Ноябрь
2009
В одномерном массиве x(n) поменять местами максимальный и минимальные элементы
В одномерном массиве 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 y(i) y(i) = x(i) Next i