Usando um laço PARA para solicitar ao usuário que informe 10 valores inteiros e mostrar quantos valores negativos foram informados - Desafio de Programação Resolvido em VisuAlg

Informe o 1º valor: 5
Informe o 2º valor: -2
Informe o 3º valor: 3
Informe o 4º valor: 7
Informe o 5º valor: 8
Informe o 6º valor: -4
Informe o 7º valor: 1
Informe o 8º valor: 5
Informe o 9º valor: 3
Informe o 10º valor: 2

Você informou 2 valores negativos.

algoritmo "Quantidade de números negativos lidos"

var
  valor: inteiro // guarda o valor lido
  negativos: inteiro // guardará a quantidade de valores negativos
  i: inteiro // para controlar as repetições do laço

inicio
  negativos <- 0

  // vamos pedir ao usuário que informe 10 valores inteiros
  para i de 1 ate 10 faca
    escreva("Informe o ", i, "º valor: ")
    leia(valor)

    // vamos verificar se o valor informado é negativo
    se (valor < 0) entao
      negativos <- negativos + 1
    fimse
  fimpara

  // vamos exibir a quantidade de números negativos lidos
  escreval()
  escreval("Você informou ", negativos, " valores negativos.")
fimalgoritmo