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

247

445

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

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

ketmeow

Информатика

4,8(41 оценок)

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)

bandygan666

Информатика

4,7(92 оценок)

//pascal abc.net v3.1 сборка 1172 type re=record name: string; res: integer; end; const n=3; var ar: array[1..n] of re; i,j,c: integer; cs: string; begin; for i: =1 to n do begin write('введите имя участника №',i,': '); readln(ar[i].name); write('введите результат участника №',i,': '); readln(ar[i].res); end; for i: =1 to n-1 do for j: =i to n do if ar[i].res> ar[j].res then begin; c: =ar[i].res; ar[i].res: =ar[j].res; ar[j].res: =c; cs: =ar[i].name; ar[i].name: =ar[j].name; ar[j].name: =cs; end; for i: =1 to n do writeln(i,' ',ar[i].name,' ',ar[i].res); end. пример ввода: двачевская 23 персунов 22 хацуне 3 пример вывода: 1 хацуне 3 2 персунов 22 3 двачевская 23

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.