PascalABC.NET                                      

Ответ:

С ручным заполнением матрицы:

• begin
• var P := ReadMatrReal(6, 7);
• Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));
• end.

С рандомным заполнением матрицы:

• begin
• var P := MatrRandomReal(6, 7, -10, 10);
• P.Print;
• Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));
• end.

Пример работы: