Дан целочисленный массив из 300 элементов. Элементы могут принимать значения от 0 до 100000. Вместо многоточия допишите на предложенном алгоритмическом языке программу, которая находит и выводит количество пар двух соседних элементов массива, элементы которых расположены по возрастанию и их сумма заканчивается на 7. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них. Если программа пишется на языке программирования, отличном от предложенного, то необходимо указать название языка программирования, переписать на этом языке предложенный фрагмент и реализовать предложенное задание без использования встроенных функций выбранного языка программирования. Предложенный в окне ответа фрагмент можно удалить. нач целтаб а [1:300] цел і, ј, к нц для і от 1 до 300 ввод а [і] кц кон

Для решения данной задачи на алгоритмическом языке, необходимо реализовать следующий алгоритм:

1. Объявить массив a из 300 элементов и переменные i, j, k, count.
2. В цикле от 1 до 300 ввести элементы массива a.
3. Инициализировать переменную count нулем. Она будет хранить количество подходящих пар.
4. В цикле от 1 до 299 (чтобы не выйти за границы массива при проверке соседних элементов) проверить, что текущий элемент a[i] меньше следующего a[i+1] и что их сумма заканчивается на 7.
5. Если оба условия выполняются, увеличить count на 1.
6. После завершения цикла вывести значение переменной count.

Вот как это выглядит на алгоритмическом языке:

нач
 целтаб a[1:300]
 цел i, j, k, count
 count := 0
 нц для i от 1 до 300
  ввод a[i]
 кц
 нц для i от 1 до 299
  если a[i] < a[i+1] и mod(a[i] + a[i+1], 10) = 7 то
   count := count + 1
  все
 кц
 вывод count
кон

Пояснения:

• целтаб a[1:300] - объявление целочисленного массива a размером от 1 до 300.
• цел i, j, k, count - объявление целочисленных переменных i, j, k и count.
• count := 0 - присваивание переменной count начального значения 0.
• нц для i от 1 до 300 - начало цикла for от 1 до 300 (включительно).
• ввод a[i] - ввод значения элемента массива a с индексом i.
• кц - конец цикла.
• нц для i от 1 до 299 - цикл для перебора пар соседних элементов. Цикл идет до 299, так как на последней итерации i+1 будет равен 300, что является последним элементом массива.
• если a[i] < a[i+1] и mod(a[i] + a[i+1], 10) = 7 то - условный оператор. Проверяет, что текущий элемент меньше следующего (то есть пара возрастающая) и остаток от деления суммы этих элементов на 10 равен 7 (то есть последняя цифра суммы равна 7).
• count := count + 1 - если условие выполнилось, увеличиваем счетчик пар на 1.
• вывод count - вывод количества подходящих пар.

Ответ:

Программа на алгоритмическом языке, реализующая данное задание, представлена выше.