Написать программу на Бейсик - VB

Узнай цену своей работы

Формулировка задачи:

Написать программу,меняющею местами два элемента массива:имеющего максимальное и минимальное значение

Решение задачи: «Написать программу на Бейсик»

textual
Листинг программы
Sub Exchange(A() as integer)
      imax%=1
      imin%=1
      For i%=2 to Ubound(A,1)
           If A(i%) > A(imax%) then imax%=i%
           If A(i%) < A(imin%) then imin%=i%
      Next i%
      tmp%=A(imax%)
      A(imax%)=A(imin%)
      A(imin%)=tmp%
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы