// 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
// Внимание! Если программа не работает, обновите версию!
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