array18-23

Решение задач. Array18-23

Приветствуем читателей нашего сайта! Сегодня мы с вами решим задачи Array18-23.

Одномерные массивы: анализ элементов

Задачи Array18-23

Для выполнения некоторых заданий, связанных с анализом элементов массива, не требуется одновременно хранить в памяти все исходные данные, поэтому использовать при их выполнении массивы, строго говоря, не нужно. Однако применение массивов позволяет сделать алгоритмы решения этих заданий более простыми и наглядными. Задания из данного пункта можно дополнить заданиями из групп «Последовательности» и «Минимумы и максимумы», рассматривая их как задания на обработку массивов. С другой стороны, для тех заданий данной группы, которые можно выполнить, не используя массивы, полезно реализовать и такие алгоритмы решения.
Array18. Дан массив A ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов AK, которые удовлетворяют неравенству AK < A10. Если таких элементов нет, то вывести 0.

Решение Показать

Array19.  Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0.

Решение Показать

Array20. Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти сумму элементов массива с номерами от K до L включительно.

Решение Показать

Array21. Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти среднее арифметическое элементов массива с номерами от K до L включительно.

Среднее арифметическое — это: Aср = (A1 + A2 + A3 + … + AN) / N

 

Решение Показать

Array22. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.

Решение Показать

Array23. Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно.

Решение Показать

На сегодня всё! Если у вас возникли вопросы, задавайте их в комментариях. И не забывайте рассказывать о нашем сайте своим друзьям!

  • Максим

    В array18 вы допустили ошибку в строке 17: знак неравенства не соответствует условию задачи. А также, вывод нуля будет невозможен, так как в массиве нет элемента с индексом 0. Нужно добавить в массив a[0] и задать ему значение 0. Вот так:

    program array18;

    var
    A: array[0..10] of integer;
    i, K: integer;

    begin
    a[0] := 0;
    for i := 1 to 10 do
    read(A[i]);

    for i := 1 to 9 do
    if A[i] < A[10] then
    begin
    K := i;
    break;
    end;

    writeln(A[K]);
    end.

    Но вопрос: соответствует ли это условию задачи "Дан массив A ненулевых целых чисел размера 10"?
    Массив размера 10 — это же A1, A2, …, A10; а не A0, A1, …, A10, ведь так?

  • Максим

    Не пойму, почему удалили мой комментарий? Я указал на ошибку и написал, как её можно исправить. Даже если бы я был не прав, то и в том случае нужно было ответить, а не удалить комментарий.