Question

Для целочисленной матрицы G размерности N х M, найти для каждой строки число элементов, равных заданному значению ( N ≤ 10, M ≤ 10 ).

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var (N, M) := ReadInteger2('Enter N, M: ');

 var ToSearch := ReadInteger('Enter number to search: ');

 foreach var Row in MatrRandom(N, M, -99, 99).Println.Rows do Println(Row.Count(p -> p = ToSearch));

end.

Answer 2

PascalABC.NET

Ответ:

• begin
• var (m,n,a) := ReadInteger3('Введите M, N, A:');
• MatrRandom(m,n,-9,9).Print.Rows.PrintLines(x->x.Count(x->x=a))
• end.

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