Exercício 05 Matriz - Pascal

5) Ler uma matriz 4x4 de números inteiros, multiplicar os elementos da diagonal principal por um número inteiro também lido e escrever a matriz resultante.

OBS: Diagonal principal é aquela onde linha = coluna

Program matriz05;
var
matriz:array[1..4,1..4] of integer;
n,i,j:integer;
Begin
    for i := 1 to 4 do
    for j := 1 to 4 do
        Begin
            Write('[',i,',',j,'] Informe valor: ');
            readln(matriz[i,j]);
        End;
    Write('Informe um valor para multiplicar a diagonal: ');    
    readln(n);
    for i := 1 to 4 do
        matriz[i,i]:= matriz[i,i] * n;        
    for i := 1 to 4 do
        Begin
            for j := 1 to 4 do        
                Begin
                    Write(matriz[i,j],' ');                        
                End;    
            Writeln;    
        End;        
End.

Categories: Pascal , Programação