// Autor: Prof. Tiago Eugenio de Melo // Data: 27.05.2013 // Contato: tiagodemelo@gmail.com algoritmo "Preechimento Matriz" var A: vetor [1..5, 1..5] de inteiro i, j, num, total: inteiro inserir: logico inicio para i de 1 ate 5 faca para j de 1 ate 5 faca A[i,j] <- 0 fimpara fimpara total <- 0 enquanto (total <> 25) faca leia (num) inserir <- verdadeiro se (num%5=0) entao para i de 1 ate 5 faca para j de 1 ate 5 faca se ((i=j) e (A[i,j]=0) e (inserir = verdadeiro)) entao A[i,j] <- num total <- total + 1 inserir <- falso fimse fimpara fimpara fimse se (num%11=0) entao para i de 1 ate 5 faca para j de 1 ate 5 faca se ((j>i) e (A[i,j]=0) e (inserir = verdadeiro)) entao A[i,j] <- num total <- total + 1 inserir <- falso fimse fimpara fimpara fimse se (num%13=0) entao para i de 1 ate 5 faca para j de 1 ate 5 faca se ((i>j) e (A[i,j]=0) e (inserir = verdadeiro)) entao A[i,j] <- num total <- total + 1 inserir <- falso fimse fimpara fimpara fimse fimenquanto para i de 1 ate 5 faca para j de 1 ate 5 faca escreva (A[i,j]) fimpara escreval() fimpara fimalgoritmo