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

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

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

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

Пример
37 -18 42 57 24 9 17 20
n= 5, S=177
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт