Сформировать двумерный массив А(10*5) через Random(50). Распечатать в виде таблицы. **...

Question

Сформировать двумерный массив А(10*5) через Random(50). Распечатать в виде таблицы. На основании этого массива сформировать одномерный массив В из сумм значений элементов каждой строки

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(10,5,0,49);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.Select(t->t.Sum).ToArray; b.Println;
end.

Пример
*** Исходный массив ***
 31 49 29 23 35
 24 38 44  1  9
 47 46 36 42 14
 24 44  7  3 32
 40 28 41 13 22
  2 43 27 37 28
  1  6 24 10  9
 12 23 14 11 32
 35 31 22 15 18
 37 38 30 35 36
---------------
167 116 185 110 144 137 50 92 121 176

Comments

Спасибо!