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

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  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 7
k=7