// Autor: Prof. Tiago Eugenio de Melo // Data: 11.07.2011 // Contato: tiagodemelo@gmail.com algoritmo "Preenche Diagonal Principal" var A: vetor[1..5,1..5] de inteiro i, j: inteiro inicio para i de 1 ate 5 faca para j de 1 ate 5 faca se (i=j) entao A[i,j]<-1 senao A[i,j]<-0 fimse fimpara fimpara para i de 1 ate 5 faca para j de 1 ate 5 faca escreva(A[i,j], " ") fimpara escreval("") fimpara fimalgoritmo