Сформировать двумерный массив а(10*5) через random(50). распечатать в виде таблицы. на основании этого массива сформировать одномерный массив в из сумм значений элементов каждой строки
// 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.
// Внимание! Если программа не работает, обновите версию!
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