Question

Leia 30 valores, calcule e escreva a média aritmética desses valores lidos em portugol

Answer 1

algoritmo "semnome"

var

n,s,i:inteiro

media:real

inicio

para i de 1 ate 30 faca

escreva("Digite o ",i,"º valor: ")

leia(n)

s:=s+n

fimpara

media:=s/30

escreval("Media Total: ",media)

fimalgoritmo:

vai repetir 30 vezes a instrução leia e dentro desse ciclo de repetição a variável "s" vai acumular os números digitados  e quando terminar o ciclo a variável "media" vai guardar a média aritmética desses valores e no final vai mostrar num escreval