Дан целочисленный массив из 50 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых оба числа трёхзначные. В данной задаче под парой подразумевается два подряд идущих элемента массива.
Answers & Comments
===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.