Question

Паскаль. 11 класс. Составить массив из сумм по строкам и из минимума по столбцам. Помогите, умоляю.

Answer 1

begin

 var m := 3;

 var n := 3;

 var a := MatrRandom(m, n, 0, 9); a.Println;

 

 var b := new integer[m];

 for var i := 0 to m - 1 do

   b[i] := a.Row(i).Sum;

 b.Println;

 

 var c := new integer[n];

 for var j := 0 to n - 1 do

   c[j] := a.Col(j).Min;

 c.Println;

end.