Question

faça um programa que receba 10 valores inteiros e que indique: quantos são pares, quantos são impares, quantos são positivos e quantos são negativos.

Answer 1

Algoritmo "semnome"
Var
a : vetor[1..10] de inteiro
i, par, impar, positivo, negativo : inteiro
Inicio
par <- 0
impar <- 0
positivo <- 0
negativo <- 0
para i de 1 ate 10 faca
     escreva("Digite o",i,"º numero: ")
     leia(a[i])
fimpara
para i de 1 ate 10 faca
     se (a[i] mod 2 = 0) entao
     par <- par + 1
     senao
     impar <- impar + 1
     fimse
     se (a[i] > 0) entao
     positivo <- positivo + 1
     fimse
     se (a[i] < 0 ) entao
     negativo <- negativo + 1
     fimse
fimpara
escreval(par, " numero(s) par(es)")
escreval(impar, " numero(s) impar(es)")
escreval(positivo, " numero(s) positivo(s)")
escreval(negativo, " numero(s) negativo(s)")

Fimalgoritmo