Parte 1.questão 1.Lista 4

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 14/04/2014
// Seção de Declarações
var
num,quant,quantp,quantn:inteiro
soma,media,percp,percn:real
resp:caractere
inicio
soma <- 0
quant <- 0
quantp <- 0
quantn <- 0
repita
escreva("digite um numaro: ")
leia(num)
escreva("deseja continnuar? (S) OU (N): ")
leia(resp)
se resp = "s" entao
soma <- soma + num
quant <- quant + 1
senao
fimse
se num > 0 entao
quantp <- quantp + 1
senao
quantn <- quantn + 1
fimse
percn <- 100 * quantn / quant
percp <- 100 - percn
ate resp = "n"
media <- soma / quant
escreva("média dos némeros dijitados:",media,". ")
escreval("Com ",quantp," numero(s) positivo(s) e ")
escreva(quantn," numero(s) negativo(s)")
escreva(percp:5:2,"% de numeros positivos.")
escreva(percn:5:2,"% de numeros negativos.")
fimalgoritmo