найти сумму элементов второго столбца заданного массива М(3,4). паскаль​

Ответ:

Var sum,i,j:integer;

M: array [1..3,1..4] of integer;

Begin

Sum:=0;

For i:=1 to 4 do

For j:=1 to 3 do

Read(m[j,i]);

For i:=1 to 4 do

Sum:=sum+m[2,i];

Write(sum);

End.