Составление программы на pascal 1. сформировать массив из 10 произвольных чисел и вывести его на экран. найти сумму и произведение элементов с нечетными индексами. подсчитать количество элементов исходного массива, значения которых превышают среднее арифметическое всех элементов массива. 2. в одномерном массиве из 14 целых чисел определить максимальный и минимальный элементы массива, напечатать их значения. найти среднее арифметическое элементов, величина которых лежит в диапазоне от 10 до 30. вывести массив на экран. 3. ввести одномерный массив из восьми вещественных чисел. распечатать массив на экране. подсчитать количество элементов исходного массива, значения которых менее среднего арифметического всех элементов массива.. увеличить втрое значение каждого положительного элемента, а отрицательные элементы заменить их абсолютным значением. вывести на экран измененный массив 4. сформировать целочисленный массив из 20 вещественных чисел. вывести массив на экран. определить сумму квадратов элементов с нечетными индексами. изменить массив следующим образом: все элементы массива с нечётными номерами уменьшены вдвое, а с нечётными – увеличены в 5 раз. вывести измененный массив на экран. 5. сформировать массив из 15 вещественных чисел и вывести его на экран. определить количество элементов больших его среднего арифметического значений всех нечетных элементов массива. изменить массив следующим образом: все четные элементы массива увеличить на 7, а элементы с четными индексами уменьшить на 4. вывести на экран измененный массив.

188

225

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

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

Kintavr12345

Информатика

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

Const nx =50; var q, n,sum,sum1,p,i: integer; sr: real; r: array[1..10] of integer; beginp: =1; for i: =1 to 10 do beginr[i]: = random(15)-2; sum1: = sum1 +r[i]; write(r[i]: 3); if i mod 2 =1 then begin sum: = sum +r[i]; p: = p +r[i]; end; end; writeln; sr: = sum1/10; writeln('сумма элементов с нечетными индексами = ',sum); writeln('произведение элементов с нечетными индексами = ',p); writeln('среднее арифметическое всех элементов массива = ',sr); foreach q in r do beginif q > sr then n: = n + 1; end; writeln('количество элементов превышают среднее арифметическое = ',n); end.

erke999000

Информатика

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

Вторая буква согласная только в №1 и 4., проверяем второе условие. 3 гласных только в №4 условие первая буква уже и не нужно, т.к. вып. одно из двух, входящих в дизъюнкцию. ответ №4

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

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

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

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

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

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

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

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

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

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