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) < A(R) Then R = i             If A(i) Mod 2 <> 0 Then Q = Q + A(i) '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535             If A(i) > intA And A(i) < intB Then S = S + 1         Next         MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)