Найти сумму квадратов положительных членов матрицы mxn

vtrutnev vtrutnev    2   26.09.2019 19:30    0

Ответы
Ананасик20031 Ананасик20031  08.10.2020 20:58
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Сумма положительных ',a.ElementsByRow.Where(t->t>0).Sum)
end.

Найти сумму квадратов положительных членов матрицы mxn
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика