Дан массив А(15). Его элементы задаются случайным образом от -35 до 50. Найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. Решить всё в паскале

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(15,-35,50); a.Println;  Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',    a.Where(x->x<0).Average:0:5);  Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',    a.Where(x->x<0).Count)end.Тестовое решение13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1Сумма отр.=-112, ср.арифм.отр=-18.66667Сумма пол.=134, кол-во пол.=6