дан массив из 10 элементов , значение которых находится в диапазоне [-10;10]. Определить кол-во положительных и отрицательных

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  Writeln('Кол-во положительных- ',a.Where(x->x>0).Count);
  Writeln('Кол-во отрицательных- ',a.Where(x->x<0).Count);
end.


-10 9 8 5 3 -10 0 4 -4 -4
Кол-во положительных- 5
Кол-во отрицательных- 4