L5 - 7 - Escreva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra. O algoritmo deverá escrever:

screva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra. O algoritmo deverá escrever:
1. o valor total pago pelos cinco clientes;
2. o valor médio das compras efetuadas;
3. os nomes dos clientes que efetuaram compras superiores a 20 reais.


Algoritmo "Gestor de Loja"
Var
    nomecli: vetor [1..5] de literal
    valorcli: vetor [1..5] de real
    valort, valorm: real
    x: inteiro
Inicio
    valort <- 0
    Para x de 1 ate 5 faca
        nomecli[x] <- " "
        valorcli[x] <- 0
    Fimpara
    Escreval("Informe o nome dos cinco clientes:")
    Para x de 1 ate 5 faca
        Leia(nomecli[x])
    Fimpara
    Limpatela
    Escreval("Informe o valor que cada um deles pagou por sua compra:")
    Para x de 1 ate 5 faca
        Escreva(nomecli[x]," R$")
        Leia(valorcli[x])
        valort <- valort + valorcli[x]
    Fimpara
    valorm <- valort /5
    Limpatela
    Escreval("O valor total pago pelos cinco clientes R$",valort:5:2)
    Escreval("O valor médio das compras efetuadas R$",valorm:5:2)
    Escreval("Os clientes que efetuaram compras acima de 20 reais foram: ")
    Para x de 1 ate 5 faca
        Se(valorcli[x] >= 20)entao
             Escreval(nomecli[x]," (",valorcli[x]:5:2,")")
        Fimse
    Fimpara

Fimalgoritmo