// PascalABC.NET 3.2, сборка 1383 от 09.02.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); Writeln('Сумма элементов массива: ', a.Rows.SelectMany(x->x).Sum)end.
ПримерКоличество строк в массиве: 6Количество столбцов в массиве: 9*** Исходный массив [6,9] *** 39 99 51 44 -28 -85 -52 -98 -56 68 41 3 34 54 -39 -72 15 -80 47 -11 35 -50 65 70 58 52 -1 38 82 -37 93 32 51 -82 -32 98 -72 -12 59 87 44 -4 -14 -56 13 44 72 1 63 48 -77 4 -28 73---------------------------------------------Сумма элементов массива: 691