// PascalABC.NET 3.0, сборка 1128 begin var a:=ArrRandom(30,-10,20).Println(','); Writeln('Сумма элементов, больших 10, равна ', a.Where(x->x>10).Sum); end.
Тестовое решение: 4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18 Сумма элементов, больших 10, равна 125
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
Тестовое решение:
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125