Question

Дан целочисленный массив из 50 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа трёхзначные. В данной задаче под парой подразумевается два подряд идущих элемента массива.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(50);

 a.Pairwise.Count( p -> p[0].InRange(100, 999) and

     p[1].InRange(100, 999)).Println

end.

Answer 2

Вы можете решить эту задачу с использованием любого языка программирования, но я предложу вам решение на языке Python. Вот алгоритм для подсчета количества пар трехзначных элементов массива:

1. Создайте переменную count и инициализируйте ее значением 0. Эта переменная будет считать количество пар трехзначных чисел.

2. Пройдитесь по элементам массива с помощью цикла от 0 до len(array) - 1. Внутри цикла будем рассматривать каждую пару соседних элементов.

3. Для каждой пары элементов проверьте, являются ли оба числа трехзначными. Для этого проверьте, что каждое число больше или равно 100 и меньше или равно 999.

4. Если оба числа являются трехзначными, увеличьте значение переменной count на 1.

5. После завершения цикла выведите значение переменной count.

Вот пример реализации на языке Python:

pythonCopy code
def count_three_digit_pairs(array):
    count = 0
    for i in range(len(array) - 1):
        if 100 <= array[i] <= 999 and 100 <= array[i + 1] <= 999:
            count += 1
    return count

# Пример использования
array = [123, 456, 789, 10001, 234, 567, 890]
pairs_count = count_three_digit_pairs(array)
print("Количество пар трехзначных элементов:", pairs_count)

Этот алгоритм пройдет по каждой паре соседних элементов массива и проверит, являются ли оба числа трехзначными. Если оба числа удовлетворяют этому условию, переменная count будет увеличена на 1. В конце алгоритма будет выведено количество пар трехзначных элементов.