PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
Println('Элементов, меньших 30:', a.Where(t -> t < 30).Count);
Println('Сумма элементов, больших 12:', a.Where(t -> t > 12).Sum);
end.
n= 15
3 -14 -47 6 -28 -41 -24 -11 36 41 35 13 3 48 16
Элементов, меньших 30: 11
Сумма элементов, больших 12: 189