===== PascalABC.NET =====

begin

 var (строк, столбцов) := ReadInteger2('Укажите P и Q:');

 var (от, до) := (-99, 99);

 var массив := MatrRandom(строк, столбцов, от, до);

 массив.Println;

 массив.Rows

     .Select(строка -> строка.Sum)

     .Count(сумма -> сумма > 0)

     .Print

end.