Заполнить массив из 10 элементов случайными числами в интервале [-10; 10] и подсчитать сумму всех отрицательных элементов.

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin   var a:=ArrRandom(10,-10,10); a.Println;   Writeln('s=',a.Where(x->x<0).Sum) end. Тестовое решение: 3 4 -10 4 0 -1 1 -8 1 10 s=-19