Exemplo 6

=============================================================
Exemplo 6:

Problema: Escreva um algoritmo para ler 10 números. Todos os números lidos com valor inferior a 40 devemser somados. Escreva o valor final da soma efetuada.
=============================================================
// Seção de Declarações

var

controle:inteiro
valor,soma:real

inicio

// Seção de Comandos

controle<-1
soma<-0

enquanto(controle<=10)faca
    escreva ("Escreva um valor: ")
    leia(valor)

// Toda a vez que o valor digitado for menor que 40 ele é somado com a última SOMA.

    se(valor<40)entao
    soma<-soma+valor
    fimse

// Cada vez que for digitado um valor, o CONTROLE é somado de 1
// Quando o CONTROLE for maior que 10, o programa para de repetir e sai da 

instrução de  repetição.

     controle<-controle+1
fimenquanto

escreva("A soma dos valores menores que 40 é: ",soma)

fimalgoritmo

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