Question

Ввести двумерный массив, состоящую из n*m элементов. Найдите сумму всех элементов, больших числа K (вводится с клавиатуры).

Answer 1

PascalABC.NET:

• ##
• var n := ReadInteger('Введите n:');
• var m := ReadInteger('Введите m:');
• Print('Введите элементы матрицы:');
• var matr := ReadMatrInteger(n, m);
• var K := ReadInteger('Введите K:');
• matr.ElementsByRow.Where(x → x>K).Sum.Print