Exercício 01 Matriz - Pascal

1) Ler 9 números inteiros para preencher uma matriz D 3x3, ou seja, com 3 linhas e 3 colunas (considere que não serão informados valores duplicados). A seguir, ler um número inteiro X e escrever uma mensagem indicando se o valor de X existe ou não na matriz D.

Program matriz01;
uses crt;
var
    matriz:array[1..3,1..3] of integer;
    x,i,j:integer;
    res:boolean;
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;        
    Write('Informe Valor Pesquisa: ');
    readln(x);
    res:=false;
    for i:=1 to 3 do
    for j:=1 to 3 do
            Begin
                if (x=matriz[i,j]) and (res=false) then
                    Begin
                        Writeln('Valor Encontrado [',i,',',j,']');
                        res:=true;                
                    End;                
            End;            
End.

Categories: Pascal , Programação