Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

В одномерном массиве 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 [...]


В избранное