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

ЛориXD ЛориXD    2   16.09.2019 14:50    2

Ответы
12CoolGirl121 12CoolGirl121  07.10.2020 19:56
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика