Замість цього колібрі постійно махають крилами з частотою яка може бути до

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-35,60);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a.Rows.Select(row->row.Where(t->t<0).Count).Println
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
 -21  50  17 -12 -30  10  -9  10
  39   1   0  41 -29  26  28  16
  50  52  13  36  43  -6  37   5
  34  -3  27  13  29 -30  49  36
 -17 -12  39  52 -15  -8  27  -9

4 1 1 2 5

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(31,-10,12); a.Println;
  Writeln('Дней с нулевой температурой- ',a.Where(t->t=0).Count);
  Writeln('Дней с отрицательной температурой- ',a.Where(t->t<0).Count);
  Writeln('Дней с положительной температурой- ',a.Where(t->t>0).Count);
end.

Пример
9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12
Дней с нулевой температурой- 2
Дней с отрицательной температурой- 11
Дней с положительной температурой- 18

Если хочется вводить с клавиатуры, вместо строки
var a:=ArrRandom(n,-10,12); a.Println;
надо написать
var a:=ReadArrInteger('Введите температуру по дням'+NewLine,31);