Claro! Segue abaixo um exemplo de algoritmo em Portugol para calcular a média aritmética de um conjunto de números pares fornecidos pelo usuário: ``` algoritmo media_aritmetica_pares var numero, soma, quantidade: inteiro media: real inicio soma <- 0 quantidade <- 0 escreva("Digite um número par (ou 0 para sair): ") leia(numero) enquanto(numero <> 0) faca se(numero % 2 = 0) entao soma <- soma + numero quantidade <- quantidade + 1 fimse escreva("Digite um número par (ou 0 para sair): ") leia(numero) fimenquanto se(quantidade > 0) entao media <- soma / quantidade escreva("A média aritmética dos números pares é: ", media) senao escreva("Nenhum número par foi digitado.") fimse fimalgoritmo ``` O algoritmo começa inicializando as variáveis `soma` e `quantidade` com zero. Em seguida, entra em um laço `enquanto` que solicita ao usuário que digite um número par (ou zero para sair). Se o número digitado for par, ele é somado à variável `soma` e a variável `quantidade` é incrementada em 1. Caso contrário, o número é ignorado. Quando o usuário digita zero para sair, o laço `enquanto` é interrompido e o algoritmo verifica se foram digitados números pares suficientes para calcular a média. Se a variável `quantidade` for maior que zero, a média é calculada e exibida na tela. Caso contrário, uma mensagem informando que nenhum número par foi digitado é exibida. Espero ter ajudado!
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar