===== PascalABC.NET =====
begin
var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда
a. Println;
a.Count(p -> p.IsOdd).Println; // a)
var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));
Println('Сумма', s.Sum, ' Количество', s.Count); // b)
a[1::2].Where(p -> p < 0).Sum.Println // c
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4
3е..............................................