Algoritmo "media_pos_negativos"

var
valor, soma, cont_pos, cont_neg: real
qtd_pos, qtd_neg, qtd_total: inteiro
percent_pos, percent_neg: real

// Inicialização das variáveis
soma <- 0
cont_pos <- 0
cont_neg <- 0
qtd_pos <- 0
qtd_neg <- 0
qtd_total <- 0

// Loop para leitura dos valores
enquanto verdadeiro faça
escreva("Digite um valor (0 para sair): ")
leia(valor)

// Verifica se o valor é zero para sair do loop
se valor = 0 então
    sair
fim se


// Realiza o cálculo para a média e a contagem dos valores positivos e negativos
soma <- soma + valor
qtd_total <- qtd_total + 1


se valor > 0 então
    cont_pos <- cont_pos + valor
    qtd_pos <- qtd_pos + 1
senão
    cont_neg <- cont_neg + valor
    qtd_neg <- qtd_neg + 1
fim se

fim enquanto

// Cálculo da média aritmética
se qtd_total > 0 então
media <- soma / qtd_total
senão
media <- 0
fim se

// Cálculo do percentual de valores positivos e negativos
se qtd_total > 0 então
percent_pos <- (qtd_pos / qtd_total) * 100
percent_neg <- (qtd_neg / qtd_total) * 100
senão
percent_pos <- 0
percent_neg <- 0
fim se

// Exibe os resultados
escreva("Média aritmética dos valores lidos: ", media)
escreva("Quantidade de valores positivos: ", qtd_pos)
escreva("Quantidade de valores negativos: ", qtd_neg)
escreva("Percentual de valores positivos: ", percent_pos, "%")
escreva("Percentual de valores negativos: ", percent_neg, "%")

FimAlgoritmo