Регистрация
Войти
Стать экспертом Правила
Информатика

Дан одномерный массив натуральных чисел.Определить количество элементов массива,сумма цифр которых больше 7.Все вспомогательные алгоритмы оформить в отдельный модуль.

ОТВЕТЫ
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function S(n:integer):integer:=(nlt;10n:(n mod 10)+S((n div 10) mod 10));

begin
  var a:=ArrRandom(ReadInteger(n=),1,50); a.Println;
  Writeln(k=,a.Select(x-gt;S(x)).Where(x-gt;xgt;7).Count)
end.

Пример:
n= 15
29 33 40 49 20 12 43 50 22 40 36 33 35 43 49
k=5
262
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам