Найти максимальный элемент массива и его номер - VB (62652)
Формулировка задачи:
Найти максимальный элемент массива Х=(х1,х2,....,хn)и его номер. Записать элементы массива Х подряд в массив Y=(y1,y2,.....yn),поменяв местами максимальный элемент и Х1.
Решение задачи: «Найти максимальный элемент массива и его номер»
textual
Листинг программы
Dim X() As Single, Y() As Single, max As Single, maxI As Byte, n As Byte
n = InputBox("n")
ReDim X(1 To n), Y(1 To n)
For i = 1 To n
X(i) = InputBox("X(" & i & ")")
Next i
max = X(1): maxI = 1
For i = 2 To n
If X(i) > max Then max = X(i): maxI = i
Next i
Y(1) = max
For i = 2 To n
Y(i) = X(i)
Next i
Y(maxI) = X(1)