Подсчитать среди 30 целых случайных чисел из интервала [ -5; 50] количество чисел, меньше 0.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(30,-5,50); a.Println;  Writeln('k=',a.Where(x->x<0).Count)end.Тестовое решение:24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7k=7