exemplos de programas visualg

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "40 notas"
// Função :
// Autor :
// Data : 03/04/2018
// Seção de Declarações 
var
n1,soma,i:inteiro
media:real
inicio
// Seção de Comandos 
para i<-1 ate 40 faca
escreval ( " digite a " , i , " nota " )
leia(n1)
soma<-n1+soma
fimpara
media<-soma/40
escreval("sua média foi de",media)
fimalgoritmo