Por favor me ajudem com esse problema no Visualg, é muito importante, pra hoje ainda!!!!!!!?
Escrever um programa que leia 10 valores, calcule e imprima:
a)A média aritmética dos valores lidos;
b) A quantidade de valores positivos;
c) A quantidade de valores negativos; e
d) A percentual de valores negativos e positivos.
Um menu deve ser colocado solicitando quais das opções o usuário deseja. Este
menu deve ser bem estruturado para aceitar somente as condições propostas. Quando a
tecla ‘S’ for lida, o programa deve encerrar.
Comments
algoritmo "ex"
var
valores: vetor [1..10] de inteiro
positivos, negativos, soma, i: inteiro
continua: caractere
inicio
para i de 1 ate 10 faca
leia (valores[i])
fimpara
continua <- "S"
enquanto (continua = "S") faca
escreval("a) A média aritmética dos valores lidos")
escreval("b) A quantidade de valores positivos")
escreval("c) A quantidade de valores negativos")
escreval("d) A percentual de valores negativos e positivos")
escreval("Escolha a opção desejada:")
leia (opcao)
escolha opcao
caso "a"
soma <- 0
para i de 1 ate 10 faca
soma <- soma + valores[i]
fimpara
escreval ("Média: ", soma / 10)
caso "b"
positivos <- 0
para i de 1 ate 10 faca
se (valores[i] > 0) entao
positivos <- positivos + 1
fimpara
escreval ("Quantidade de positivos: ", positivos)
caso "c"
negativos <- 0
para i de 1 ate 10 faca
se (valores[i] < 0) entao
negativos <- negativos + 1
fimpara
escreval ("Quantidade de negativos: ", negativos)
caso "d"
positivos <- 0
negativos <- 0
para i de 1 ate 10 faca
se (valores[i] > 0) entao
positivos <- positivos + 1
senao
se (valores[i] < 0) entao
negativos <- negativos + 1
fimpara
escreval ("Percentual de valores positivos: ", (positivos*100)/10)
escreval ("Percentual de valores negativos: ", (negativos*100)/10)
outrocaso
escreval ("Opção inválida")
fimescolha
escreval ("Deseja continuar? [S/N]")
leia (continua)
fimenquanto
fimalgoritmo