Exercício 09 Matriz - Pascal

9) Escreva um programa que, dada uma matriz 3x3, armazene em cada posição da matriz, a soma dos valores da linha e coluna que definem a posição. Por exemplo, na posição [1][2] você deverá armazenar o valor 1+2 = 3 e assim por diante. Imprima a matriz na tela.

Program matriz09;
var
matriz:array[1..3,1..3] of integer;
i,j:integer;
Begin
    for i := 1 to 3 do
    for j := 1 to 3 do                    
            matriz[i,j]:=i+j;        
        
    for i := 1 to 3 do
        Begin
        for j := 1 to 3 do
            Begin
                Write(matriz[i,j],' ');
            End;
        Writeln;
        End;            
End.

Categories: Pascal , Programação