O algoritmo a seguir calcula quase tudo corretamente, exceto o teste quanto a soma de menor valor.
''O algoritmo deve simular o lançamento de dois dados 36000 vezes, somar os dados e no final exibir a soma de maior ocorrência e a de menor ocorrência."
algoritmo "sorteio de dados de 6 lados"// Função :// Autor : Paulo Cesar Dutra Cardoso// Data : 09/11/2015// Seção de Declarações var n,contador,dado1,dado2,soma,maior,menor:inteiro v:vetor[2..12] de inteiroinicio// Seção de Comandos Escreva("Quantas vezes devem ser lançados os dados?") leia(n) para contador<-1 ate n faca aleatorio on aleatorio 1,6 leia(dado1) leia(dado2) aleatorio off soma<-dado1+dado2 v[soma]<-v[soma]+1 fimpara limpatela para soma de 2 ate 12 faca se v[soma]>maior então maior<-v[soma] fimse menor<-maior se v[soma]<menor então menor<-v[soma] fimse fimpara para soma de 2 ate 12 faca se v[soma]=maior então escreval("O Que mais se repetiu foi", soma, " ,", maior, " vezes.") fimse se v[soma]=menor então escreval("O Que menos se repetiu foi", soma, " ,", menor, " vezes.") fimse fimparafimalgoritmo