Exemplo 7

=============================================================
Exemplo 7:
Faça um algoritmo para ler o código e o preço de 15 produtos, calcular e escrever:
 a.    o maior preço lido
 b.    a média aritmética dos preços dos produtos
=============================================================
// Seção de Declarações

var

codigo,controle:inteiro
preco,maiorpreco,soma:real

inicio

// Seção de Comandos

controle<- 1

// Esses comandos estão fora da instrução ENQUANTO devido ser necessário saber o
// preço do maior produto para assim esse preço ser comparado com os demais.

escreva("Codigo do produto: ")
leia(codigo)
escreva("Preço do produto: ")
leia(preco)

maiorpreco<-preco
soma<-preco

enquanto(controle<=14)faca

     escreva("Codigo do produto: ")
     leia(codigo)
     escreva("Preço do produto: ")
     leia(preco)

// Tem várias maneiras de se fazer a média de valores. Vamos fazer a média da seguinte
// forma: vamos primeiro somar todos os preços e ao final mostramos a SOMA/15.

soma<-soma+preco

// A instrução SE será usada para fazer a comparação dos preços afim de guardar
// apenas o maior dos preços.
 
     se(preco>maiorpreco)entao
          maiorpreco<-preco
     fimse
  
controle<-controle+1
fimenquanto


escreva("O maior preço lido foi: ",maiorpreco)
escreva("A média dos preços foi: ",soma/15)

fimalgoritmo

=============================================================