Есть ответ 👍

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

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

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


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.

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

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS