Cоставьте программу для вычисления T=R/Q+1+SR-наименьший элемент массива;Q-сумма нечетных элементов массива;S-количество элементов,лежащих в интервале(А,В)(А,В ввести).Полученной значение элементов R,Q,S,T ввыести на печать.

VB.    

 Dim A() As Integer


        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next






        Dim intA, intB As Integer
        intA = InputBox("Введите начало интервала")
        intB = InputBox("Введите конец интервала")
        Dim R, Q, S As Integer
        R = 0
        For i = 1 To UBound(A)
            If A(i)             If A(i) Mod 2 0 Then Q = Q + A(i)
 c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            If A(i) > intA And A(i)         Next


        MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)