Cоставьте программу для вычисления t=r/q+1+s r-наименьший элемент массива; q-сумма нечетных элементов массива; s-количество элементов,лежащих в интервале(а,в)(а,в ввести). полученной значение элементов r,q,s,t ввыести на печать.

197

362

Посмотреть ответы 2

Ответы на вопрос:

Maria590986

Информатика

4,6(22 оценок)

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)

aveiro1

Информатика

4,4(80 оценок)

Var a,b: integer; begin writeln('введите в одной строке два целых числа и нажмите < enter> '); readln(a,b); if a> b then writeln(a,' > ',b) else if a< b then writeln(a,' < ',b) else writeln('числа равны'); end. пример: введите в одной строке два целых числа и нажмите < enter> 34 67 34 < 67