algoritmo "Média aritmética"
var
media, nota, soma:real
i:inteiro
inicio
soma<-0
para i de 1 ate 35 faca
escreva("Entre com a ",i,"º nota")
leia(nota)
soma<-soma+nota
fimpara
media<-soma/35
escreval("A média aritmética é: ",media )
fimalgoritmo
Nenhum comentário:
Postar um comentário