Паскаль Найти сумму тех элементов двумерного массива, которые больше 1.

Паскаль Найти сумму тех элементов двумерного массива, которые больше 1.
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1416 от 26.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var n:=ReadInteger('Количество строк в массиве:');   var m:=ReadInteger('Количество столбцов в массиве:');   Writeln('*** Исходный массив [',n,',',m,'] ***');   var a:=MatrRandom(n,m,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');   Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum) end. Пример Количество строк в массиве: 4 Количество столбцов в массиве: 7 *** Исходный массив [4,7] ***    5 -40  29  34 -77  19  80    4 -13   9  13 -37  -3 -38  -12 -35  44 -90 -50  66 -58  -79 -62  79  96 -36 -11  13 ---------------------------- S=491
Не нашли ответ?
Ответить на вопрос
Похожие вопросы