Exemplo 8 Elaborar um algoritmo que imprima os elementos pares de um vetor de 100 elementos.

#incluir <biblioteca>
principal()
início
     inteiro i;
     inteiro a[100];
     para (i ← 1; i <= 100; i ←i + 1)
     início
               escreva(“Elemento “, i);
               leia(a[i]);
     fim
     para (i ← 1; i <= 100; i ←i + 1)
     início
               se (a[i] MOD 2 = 0)
                    escreva(“Elemento: “, a[i]);
     fim
fim