Определить число отрицательных элементов, расположенных перед наибольшим положительным элементом одномерного массива - VB

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

Надо решить задачу в VBA в excel: Определить число отрицательных элементов, расположенных перед наибольшим положительным элементом одномерного массива размером M.

Решение задачи: «Определить число отрицательных элементов, расположенных перед наибольшим положительным элементом одномерного массива»

textual
                            Листинг программы 
                        

                            Sub Task()
Dim A, i As Integer, sStr As String, M As Integer
Dim iMax As Single, iInd As Integer, iSum As Integer
M = InputBox("ГђГ*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ*:")
ReDim A(1 To M)
For i = 1 To M
    A(i) = Int(Rnd * 60 - 30)
    sStr = sStr & A(i) & "; "
    If A(i) > iMax Then iMax = A(i): iInd = i
Next
For i = 1 To iInd
    If A(i) < 0 Then iCnt = iCnt + 1
Next
MsgBox "Г‚ Г¬Г*Г±Г±ГЁГўГҐ: " & vbNewLine & sStr & vbNewLine & _
"ГЇГҐГ°ГҐГ¤ Г*Г*ГЁГЎГ®Г«ГјГёГЁГ¬ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Г¬ " & A(iInd) & " Г°Г*Г±ГЇГ®Г«Г®Г¦ГҐГ*Г® " & iCnt & " Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ"
End Sub
                        

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

14 голосов , оценка 4.143 из 5

Похожие ответы