Паскаль АВС.net программы .массивы !!Подсчитайте количество элементов одномерного...

Question

Паскаль АВС.net программы .
массивы !!
Подсчитайте количество элементов одномерного массива, абсолютная величина которых совпадает со своим номером.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile('Вводите числа, окончание - 0:',x->x<>0).ToArray;
  Writeln('Искомое количество: ',a.Where((x,i)->abs(x)=i+1).Count)
end.

Пример
Вводите числа, окончание - 0: 3 2 7 11 -6 3 -7 16 0
Искомое количество: 2