Faça um algoritmo em VisuAlg que leia 9 números inteiros, guarde-os em uma matriz 3x3 e mostre os números pares - Desafio de Programação Resolvido em VisuAlg

Linha 1 e coluna 1: 8
Linha 1 e coluna 2: 1
Linha 1 e coluna 3: 5
Linha 2 e coluna 1: 3
Linha 2 e coluna 2: 9
Linha 2 e coluna 3: 30
Linha 3 e coluna 1: 7
Linha 3 e coluna 2: 23
Linha 3 e coluna 3: 10

Valores na matriz

    8     1     5 
    3     9    30 
    7    23    10 

Os valores pares são: 8 30 10

algoritmo "Um algoritmo que lê uma matriz 3x3"

var
  // variáveis usadas na resolução do problema
  matriz:vetor[1..3, 1..3] de inteiro
  i,j: inteiro

inicio
  // vamos pedir para o usuário informar os valores
  // dos elementos da matriz, uma linha de cada vez
  para i de 1 ate 3 faca
    para j de 1 ate 3 faca
      escreva("Linha", i, "e coluna", j, ": ")
      leia(matriz[i, j])
    fimpara
  fimpara

  // vamos mostrar a matriz da forma que ela foi informada
  escreval()
  escreval("Valores na matriz:")
  escreval()
  para i de 1 ate 3 faca
    para j de 1 ate 3 faca
      escreva(matriz[i, j]:5, " ")
    fimpara
    // passa para a próxima linha da matriz
    escreval()
  fimpara

  // agora vamos percorrer a matriz novamente e mostrar
  // apenas os valores pares
  escreval()
  escreva("Os valores pares são: ")

  para i de 1 ate 3 faca
    para j de 1 ate 3 faca
      // é um número par?
      se matriz[i, j] % 2 = 0 entao
	escreva(matriz[i, j], " ")
      fimse
    fimpara
  fimpara

fimalgoritmo