somar duas colunas de uma matriz

[matheusjunio 0]

Como que eu pode fazer neste codigo pra fazer soma a 2° coluna com a 3° coluna desta matriz (3x3)

 

program exercicio3;

uses wincrt;

const n=3;

var

i,j:integer;

M:array[1..n,1..n]of integer;

prodiag,prodlinha,somacol:integer;

begin

prodiag:=1;

prodlinha:=1;

somacol:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

write('Elemento da linha ',i,' coluna ',j,' : ');

readln(M[i,j]);

end;

end;

for i:=1 to n do

begin

for j:=1 to n do

begin

if i=3

then prodlinha:= prodlinha * M[i,j];

end;

end;

writeln('O valor do produto dos elementos da 3° linha é: ',prodlinha);

for i:=1 to n do

begin

for j:=1 to n do

begin

if i=j

then prodiag:=prodiag * M[i,j];

end;

end;

writeln('O valor do produto dos elementos da diagonal é: ',prodiag);

 

for i:=1 to n do

begin

for j:=1 to n do

begin

somacol:= M[i,2]+ M[i,3]

end;

end;

writeln('A soma dos elementos da 2° coluna com os elementos da 3°coluna é: ',somacol)

end.

 

Onde esta o erro, pois do jeito que esta so esta somando os elementos da 2° e 3° coluna da 3° linha

se puderem me ajudar desde ja agradeço

[quitZAUMMM 18]

nossa cara idente seu codigo =//!

e para fazer oq você qr nem precisa de um loop jah q é uma matriz pequena faça isso na mão msm!

 

[]'s