Cоставьте программу для вычисления T=R/Q+1+SR-наименьший элемент массива;Q-сумма нечетных...

Question

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

Answer 1

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)