Lista 25 out. 1

Faça um programa que calcule a média aritmética de 35 alunos do curso de Algoritmos. Use comandos de repetição.

algoritmo "25 outubro 1"
// Função :
// Autor : Gustavo Ferreira
// Data : 26/10/2010
// Seção de Declarações 
var
   soma, aux :real
   i :inteiro
inicio
// Seção de Comandos
   para i de 1 ate 35 passo 1 faca
        escreval("Informe a media do aluno ",i,":")
        leia(aux)
        soma<- soma+aux
   fimpara
   escreva("A media aritmetica da turma foi: ",soma/35)
fimalgoritmo