5.7 – Faça um programa que preencha um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.

5.7 – Faça um programa que preencha um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.
Algoritmo "Lista 05 exer 5.7"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 01/11/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..10] de real
   soma_pos:real
   i,qtd_neg:INTEIRO
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 10 FACA
      ESCREVAL("DIGITE O ",I,"º NUMERO ")
      LEIA(VET[I])
      SE VET[I]<0 ENTAO
         QTD_NEG:=QTD_NEG+1
      SENAO
         SOMA_POS:=SOMA_POS+VET[I]
      FIMSE
   FIMPARA
   ESCREVAL("-------------------------------")
   ESCREVAL("A QUANTIDADE DE NUMEROS NEGATIVOS É: ",QTD_NEG:4:2)
   ESCREVAL
   ESCREVAL("A SOMA DOS NUMEROS POSITIVOS É: ",SOMA_POS:4:2)
Fimalgoritmo