Question

Дан двумерный массив. Определить сумму квадратов всех элементов массива. Паскаль

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println.ElementsByRow.Sum(p -> p * p).Print

end.