Нужна по паскаль задана матрица a(k,l) найти сумму элементов в каждом ряду с парным индексом и создать с них одномерный массив

Question

Информатика: Нужна по паскаль задана матрица a(k,l) найти сумму элементов в каждом ряду с парным индексом и создать с них одномерный массив

izibaevsergei · Answer

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.