// Autor: Prof. Tiago Eugenio de Melo // Data: 25.07.2011 // Contato: tiagodemelo@gmail.com algoritmo "Seleção linhas pares" var mat: vetor[1..100,1..100] de inteiro vet: vetor[1..5000] de inteiro i, j, posicao: inteiro inicio posicao <- 1 para i de 1 ate 100 faca para j de 1 ate 100 faca leia (mat[i,j]) fimpara fimpara para i de 2 ate 100 passo 2 faca para j de 1 ate 100 faca se (mat[i,j]%5=0) entao vet[posicao] <- mat[i,j] posicao <- posicao + 1 fimse fimpara fimpara para i de 1 ate posicao-1 faca escreva(vet[i], " ") fimpara fimalgoritmo