Exercício 02 Matriz - Pascal

2) Ler uma matriz MATRIZ 4x4, calcular e escrever as seguintes somas:

a) da linha 3

b) da coluna 2

c) de todos os elementos da matriz

Program matriz02;
var
matriz:array[1..4,1..4] of integer;
i,j,soma_total,soma_c2,soma_l3:integer;

Begin
    for i := 1 to 4 do
        Begin
            for j:= 1 to  4 do
                Begin
                    Write('[',i,',',j,'] Informe Valor: ');
                    readln(matriz[i,j]);
                ENd;
        End;
        
    for i := 1 to 4 do
        Begin
            for j:= 1 to  4 do
                Begin
                    if i=3 then
                        soma_l3 := soma_l3 + matriz[i,j];
                    if j=2 then
                        soma_c2 := soma_c2 + matriz[i,j];
                    soma_total    := soma_total + matriz[i,j];
                ENd;
        End;            
    Writeln('Soma Linha  3: ',soma_l3);    
    Writeln('Soma Coluna 2: ',soma_c2);
    Writeln('Soma Total   : ',soma_total);
End.

Categories: Pascal , Programação