Baixe o app para aproveitar ainda mais
Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
algoritmo "semnome" // Função : // Autor : // Data : 14/04/2014 // Seção de Declarações var num,quant,quantp,quantn:inteiro soma,media,percp,percn:real resp:caractere inicio soma <- 0 quant <- 0 quantp <- 0 quantn <- 0 repita escreva("digite um numaro: ") leia(num) escreva("deseja continnuar? (S) OU (N): ") leia(resp) se resp = "s" entao soma <- soma + num quant <- quant + 1 senao fimse se num > 0 entao quantp <- quantp + 1 senao quantn <- quantn + 1 fimse ate resp = "n" media <- soma / quant escreva("média dos némeros dijitados:",media) escreval(quantp," numero(s) positivo(s) e ") escreva(quantn," numero(s) negativo(s)") fimalgoritmo
Compartilhar