## 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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Ввести двумерный массив, состоящую из n*m элементов. Найдите сумму всех элементов, больших числа K (вводится с клавиатуры
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