В массиве поменять местами наибольший и наименьший элементы - VB
Формулировка задачи:
помогите решить задачу про массив!!!)))
В заданном массиве A(N) поменять местами наибольший и наименьший элементы.
заранее СПАСИБО))))
Решение задачи: «В массиве поменять местами наибольший и наименьший элементы»
textual
Листинг программы
dim A() as integer, B as integer
dim N as integer, min as integer, max as integer
dim i as integer, mini as integer, maxi as integer
n=inputbox("BBEDITE")
redim A(N)
for i=1 to n
A(i)=inputbox("BBEDITE A" & i)
next i
min = A(1)
max = A(1)
mini = 1
maxi = 1
for i=2 to n
if min > A(i) then min = A(i) : mini = i
if max < A(i) then max = A(i) : max = i
next i
B=A(mini)
A(mini)=A(maxi)
A(maxi)=B
for i=1 to n
msgbox "A(" & i & ")=" A(i)
next i