domingo, 5 de dezembro de 2010

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 "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