Массив ** 13 значений заполнен трехзначными числами найти сумму и их количество в котрых...

Question

Массив на 13 значений заполнен трехзначными числами найти сумму и их количество в котрых есть цифра 2

Answer 1

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

begin
  var a:=ArrRandom(13,100,999); a.Println;
  var s:=a.Where(t->t.ToString.Contains('2'));
  Writeln('Сумма отобранных чисел равна ',s.Sum,
      ', их количество равно ',s.Count)
end.

Пример
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2

Comments

не так

---

Работает - значит так. Вашему вопросу оно не противоречит.