Дан двумерный массив A(m,n). Получить линейный массив B(n) ,в котором B(i)- сумма...

Question

Дан двумерный массив A(m,n). Получить линейный массив B(n) ,в котором B(i)- сумма элементов i-го столбца массива A(m,n), при i, изменяющимся от 1 до m. Числа m, n и элементы массива A ввести с клавиатуры. На экран вывести элементы полученного массива B.
Паскаль

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(col->col.Sum).ToArray;
  Writeln('Массив сумм по столбцам');
  b.Println
end.

---