С клавиатуры вводятся числа, пока не будет введено число, делящееся ** 5. Подсчитать...

Question

С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
Паскаль

Answer 1

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

begin
  var a:=ReadSeqIntegerWhile(n->n mod 5<>0).Where(n->n>10).ToArray;
  Writeln('n= ',a.Count,', S=',a.Sum)
end.

Пример
37 -18 42 57 24 9 17 20
n= 5, S=177