Написать программу на Бейсик - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д