Дан одномерный массив D(N).Элементы массива целые случайные числа в интервале [-12;+78].Сформировать массив и найти:
1)сумму отрицательных элементов массива;
2)сумму положительных элементов массива;
3)количество элементов массива равных нулю;

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017// Внимание! Если программа не работает, обновите версию!begin  var d:=ArrRandom(ReadInteger('n='),-12,78); d.Println;  Writeln('Сумма отрицательных равна ',d.Where(x->x<0).Sum);  Writeln('Сумма положительных равна ',d.Where(x->x>0).Sum);  Writeln('Количество нулевых равно  ',d.Where(x->x=0).Count);end.Примерn= 1740 6 11 21 0 42 6 25 55 -1 54 21 49 6 -5 -12 49Сумма отрицательных равна -18Сумма положительных равна 385Количество нулевых равно  1