Здравствуйте,я снова к вам!
текст задачиДан массив Q из 8 элементов. Найти наибольший элемент среди первых 3 элементов и поменять его местами с 4 элементом. Вывести исходный массив и измененный.У меня не выводится новый массив,и не правильно находится максимум =(((
пожааалуйста,помогите!!!
сама задачкаSub z12()
Dim srt_q, str_qn As String, imax, i, a As Byte, q(7), max As Integer
For i = 0 To 7
q(i) = Val(InputBox("ввести массив :"))
str_q = str_q & q(i) & " "
Next i
imax = 0
max = 0
For i = 0 To 7
If q(i) < q(2) And q(i) > max Then max = q(i): imax = i
Next i
a = max
max = q(3)
q(3) = a
For i = 0 To 7
srt_qn = str_qn & q(i) & " "
Next i
MsgBox str_q & Chr(10) & Chr(13) & _
str_qn & Chr(10) & Chr(13) & _
"max =" & max
End Sub