100 балов, помогите плиз, буду благодарен. (составить программу расчета количества...

Question

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

Answer 1

                                     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.

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