Одномерные массивы

699. Вывести элементы массива на экран в обратном порядке.

700. Дан массив. Составить программу:

а) извлечения квадратного корня из любого элемента массива;

б) расчета среднего арифметического двух любых элементов массива.

701. Дан массив целых чисел. Выяснить:

а) является ли р-й элемент массива положительным числом;

б) является ли k-й элемент массива четным числом;

в) какой элемент массива больше, k-й или р-й.

702. Дан массив. Все его элементы:

а) увеличить в 2 раза;

б) уменьшить на число а;

в) разделить на первый элемент.

г) уменьшить на 20;

д) умножить на последний элемент;

е) увеличить на число b.

703. Определить:

а) сумму всех элементов массива;

б) произведение всех элементов массива;

в) сумму квадратов всех элементов массива;

г) сумму шести первых элементов массива;

д) сумму  элементов массива с k₁-го по k₂-й (значения k₁ и k₂ вводятся с клавиатуры; k₂ > k₁);

е) среднее арифметическое всех элементов массива;

ж) среднее арифметическое элементов массива с p₁-го по p₂-й (значения p₁ и p₂ вводятся с клавиатуры; p₂ > p₁).

704. Дан массив A. Определить сумму знакочередующейся последовательности A[1] – А[2] + А[3] – A[4] + ... . Условную инструкцию и операцию возведения в степень не использовать.

705. В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить:

а) общее количество осадков за месяц;

б) общее количество осадков, выпавших за каждую декаду месяца;

в) среднедневное количество осадков в этом месяце;

г) сколько осадков выпадало в среднем за один день в первую, вторую и третью декады этого месяца.

д) в какой период выпало больше осадков: в первую половину июня или во вторую;

е) в какую декаду месяца выпало больше всего осадков.

706. В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов.

707. В массиве хранится информация о сопротивлении каждого из 20 элементов электрической цепи. Определить общее сопротивление цепи, если:

а) все элементы соединены последовательно;

б) все элементы соединены параллельно.

708. Дан массив целых чисел. Выяснить:

а) верно ли, что сумма элементов массива есть четное число;

б) верно ли, что сумма квадратов элементов массива есть пятизначное число;

в) верно ли, что сумма элементов массива неотрицательна.

709. В массиве хранится информация о численности книг в каждом из 35 разделов библиотеки. Выяснить, верно ли, что общее число книг в библиотеке есть шестизначное число.

710. В массиве хранится информация о баллах, полученных спортсменом-десятиборцем в каждом из десяти видов спорта. Для выхода в следующий этап соревнований общая сумма баллов должна превысить некоторое известное значение. Определить, вышел ли данный спортсмен в следующий этап соревнований.

711. Оценки, полученные спортсменом в соревнованиях по фигурному катанию (в баллах), хранятся в массиве из 18 элементов. В первых шести элементах записаны оценки по обязательной программе, с седьмого по двенадцатый — по короткой программе, в остальных — по произвольной программе. Выяснить, по какому виду программы спортсмен показал лучший результат.

712. В массив A[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному значению К.

713. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.

714. Дана последовательность целых чисел а₁, а₂, ..., a_n. Выяснить, какое число встречается раньше — положительное или отрицательное.

715. Дана последовательность вещественных чисел а₁, а₂, ..., a_n. Выяснить, является ли она возрастающей.

716. Дана последовательность натуральных чисел а₁, а₂, ..., a_n. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.

717. Дана последовательность чисел а₁, а₂, ..., a_n. Указать наименьшую длину числовой оси, содержащую все эти числа.

718. Дана последовательность вещественных чисел а₁, а₂, ..., a_n. Заменить все ее члены, большие данного числа Z, этим числом. Подсчитать количество замен.

719. Последовательность вещественных чисел оканчивается нулем. Найти количество членов этой последовательности.

720. Дан массив вещественных чисел, размер которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.

721. Даны вещественные числа а₁, а₂, ..., a_n. Поменять местами наибольший и наименьший элементы.

722. Даны целые числа а₁, а₂, ..., a_n. Вывести на печать только те числа, для которых выполняется условие a_i ≥ i.

723. Даны натуральные числа а₁, а₂, ..., a_n. Указать те из них, у которых остаток от деления на М равен L (0 ≤ L ≤ M – 1).

724. В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

725. При поступлении в вуз абитуриенты, получившие двойку на первом экзамене, ко второму не допускаются. В массиве А[n] записаны оценки экзаменующихся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.

726. Дана последовательность чисел, среди которых имеется один нуль. Вывести на экран все числа до нуля включительно.

727. В одномерном массиве размещены: в нечетных элементах — значения аргумента, в четных — соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции).

728. Пригодность детали оценивается по размеру В, который должен лежать в интервале (А – δ, А + δ). Определить, имеются ли в партии из N деталей бракованные. Если да, то подсчитать их количество, в противном случае выдать отрицательный ответ.

729. У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы выгодно обменять доллары на рубли.

730. Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).

731. Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел, меньших К, равных К и больших К.

732. Задана последовательность N вещественных чисел. Вычислить , где М — среднее арифметическое данной последовательности.

733. Определить, входит ли в массив, заданный на языке Паскаль, последовательность символов 123 и, если да, то сколько раз и с каких позиций (N > 3):

var a: array [1..n] of '0'..'9';

734. Задан массив вещественных чисел. Определить, сколько раз меняется знак в данной последовательности чисел, и запомнить номера позиций, в которых происходит смена знака.

735. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются:

а) простыми числами;

б) числами Фибоначчи.

736. Задана последовательность N вещественных чисел. Вычислить значение выражения .

737. Задана последовательность N целых чисел. Вычислить сумму элементов массива, у которых порядковый номер совпадает со значением.

738. Заполнить массив из N элементов с начальным значением заданным А[0] ≠ 0, по принципу A[i] = A[i div 2] + A[i–1].

739. Определить количество элементов последовательности натуральных чисел в промежутке от L до N, кратных числу М.

740. Определить, сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.

741. Сформировать массив простых чисел, не превышающих заданное натуральное число N.

742. Сформировать массив простых множителей заданного числа.

743. Дан вектор {z_i}, i = 1, ..., 50. Вычислить длину этого вектора: .

744. Для вектора {х_i}, i = 1, ..., 20, подсчитать количество компонентов, значения которых лежат в интервале [0; 1].

745. Даны два вектора {х_i}, {у_i}, i = 1, ..., 10, упорядоченные по возрастанию. Объединить их в один вектор {z_i}, i = 1, ..., 20, так чтобы сохранилась упорядоченность.

746. Дан массив, состоящий из 100 целых чисел. Вывести все числа, которые встречаются в этом массиве:

а) несколько раз;

б) только по одному разу.

747. Найти и запомнить в массиве все максимумы и минимумы функции при изменении аргумента от 0 до 5 с шагом 0,1.

748. Дано целое х и массив целых чисел А[1], ..., А[n], которые отсортированы в порядке неубывания и уже находятся в памяти. Найти такое значение i, что A[i] = x, или возвратить i = 0, если элемента х в массиве нет.

749. Найти сумму четных элементов массива целых чисел.

750. Найти произведение элементов массива целых чисел, которые кратны 9.

751. Найти сумму элементов массива вещественных чисел, имеющих нечетные номера.

752. Найти сумму наибольшего и наименьшего элементов массива вещественных чисел массива Z(n);

753. Найти произведение всех элементов массива целых чисел, меньших 0.

754. Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3.

755. Найти сумму всех элементов массива вещественных чисел, больших заданного числа.

756. Найти произведение элементов массива вещественных чисел, меньших заданного числа.

757. Найти произведение элементов массива, кратных 3 и 9.

758. Найти сумму элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение о неудачности поиска.

759. Найти произведение элементов массива вещественных чисел, которые больше первого, но меньше 4-го элемента массива (если таких элементов нет, выдать сообщение об отсутствии таких элементов).

760. Удалить 10-й элемент одномерного массива целых чисел B(n).

761. Удалить k-й элемент массива целых чисел A(50).