4.28 Faça um programa que calcule o valor total investido por um colecionador em sua coleção de CDs e o valor médio gasto em cada um deles. O usuário deverá informar a quantidade de CDs e o valor para em cada um.

4.28 Faça um programa que calcule o valor total investido por um colecionador em sua coleção de CDs e o valor médio gasto em cada um deles. O usuário deverá informar a quantidade de CDs e o valor para em cada um.

Algoritmo "lista de repetição 4.28"
Var
   CD,N,preco,media,soma : real
Inicio
   Escreval ("Informe a quantidade de CDs")
   Leia (CD)
   N := 1
   limpatela
   enquanto N <= CD faca
      escreval("----------------------------")
      Escreval ("Informe o preço do CD",N)
      leia (Preco)
      N := N + 1
      soma := soma + preco
   fimenquanto
   media := soma / cd
   escreval
   escreval("-------Média de gasto-------------")
   escreval("A quantidade de CD´S é: ",cd)
   escreval
   escreval ("A média de gasto foi de R$ ",media:2:2)
Fimalgoritmo