Составить программу для подсчёта суммы кубов n натуральных чисел. n=40. (turbo pascal)

292

402

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

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

ашоттрубошот

Информатика

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

Const n = 20; type v = array[1..n] of real; var x, y: v; i, k: integer; amax: real; begin writeln('введите ', n, ' положительных элементов массива х'); amax : = -1e20; k : = 0; for i : = 1 to n do begin read(x[i]); {защита от дурака} if x[i] < 0 then x[i] : = abs(x[i]) else if x[i] = 0 then x[i] : = 1; {сразу же находим значения элементов массива у и заодно нужный максимум} y[i] : = 0.5 * ln(x[i]); if (y[i]> =3) and ((trunc(y[i]) mod 3) = 0) and (amax< y[i]) then begin amax : = y[i]; k : = i end end; writeln(' i xi yi'); writeln(''); for i : = 1 to n do writeln(i: 3,x[i]: 12: 4, y[i]: 12: 4); writeln; writeln('искомый индекс: ', k) end. тестовое решение: введите 20 положительных элементов массива х 365 7236 1243.4 1823 4.8 273 97.54 17000 42334 13443 323674 6787.23 100000 543433 17422.74732 19534.3 212 5454 7354.8 3153.67 i xi yi 1 365.0000 2.9499 2 7236.0000 4.4434 3 1243.4000 3.5628 4 1823.0000 3.7541 5 4.8000 0.7843 6 273.0000 2.8047 7 97.5400 2.2901 8 17000.0000 4.8705 9 42334.0000 5.3267 10 13443.0000 4.7531 11 323674.0000 6.3437 12 6787.2300 4.4114 13 100000.0000 5.7565 14 543433.0000 6.6028 15 17422.7473 4.8828 16 19534.3000 4.9400 17 212.0000 2.6783 18 5454.0000 4.3021 19 7354.8000 4.4516 20 3153.6700 4.0282 искомый индекс: 14

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

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

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

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

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

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

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

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

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

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