буду благодарен. (составить программу расчета количества ненулевых элементов матрицы P (6 * 7), элементы матрицы действительные числа)

                                     PascalABC.NET                                      

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

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

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

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

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