Нужна срочно помощь по Паскаль Задана матрица A(K,L) найти сумму элементов в каждом ряду...

Question

Нужна срочно помощь по Паскаль Задана матрица A(K,L) найти сумму элементов в каждом ряду с парным индексом и создать с них одномерный массив

Comments

правильнее указывать четный или нечетный порядковый номер, а не индекс, потому что индексы могут быть разные

Answer 1

begin

 var (k, l) := ReadInteger2();

 var a := MatrRandom(k, l, 0, 9); a.Println;

 var b := new integer[k];

 

 for var i := 0 to k - 1 do

   b[i] := a.Row(i).Where((x, i)-> (i + 1).IsEven).Sum;

 

 Println;

 b.Println;

end.

---

Comments

Если будете вводить матрицу вручную, замените строку 3 на следующую: var a := ReadMatrInteger(k, l);