Exercício 03 Matriz - Pascal

3) Ler uma matriz G 3x3 e criar 2 vetores, SL e SC, de 3 elementos cada, contendo respectivamente as somas das linhas e das colunas de G. Escrever os vetores criados.

Program matriz3;
var
matriz:array[1..3,1..3] of integer;
sl,sc:array[1..3] of integer;
i,j:integer;
Begin
    for i:= 1 to 3 do
        Begin
            for j := 1 to 3 do
                Begin
                    Write('[',i,',',j,'] Informe Valor: ');
                    readln(matriz[i,j]);
                End;
        End;        
        
    for i:= 1 to 3 do
        Begin
            for j:= 1 to 3 do
                Begin
                    Write(matriz[i,j],' ');
                    sl[i]:=sl[i] + matriz[i,j];
                    sc[j]:=sc[j]+matriz[i,j];
                End;
            Writeln;    
                                             
        End;            
        
        
    Writeln('Soma Linha');    
    for i := 1 to 3 do
        Begin    
            Writeln(sl[i]);
        End;                
    Writeln('Soma Coluna');    
    for i := 1 to 3 do
        Begin    
            Write(sc[i],' ');
        End;                    
End.

Categories: Pascal , Programação