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.