** вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар...

Question

На вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Pairwise
      .Where(t->Abs(t[0]-t[1])<7).Count.Println<br>end.

Пример
6 11 -9 -2 5 10 7 9 13 -6 -2 0
6