Задание:
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)
Знаете другой ответ?