Problema com exercício.

Questão: Faça um algoritmo que leia um número indeterminado de nomes e salários. Calcule e escreva a média entre os salários lidos. O flag será nome igual a FIM.

Resposta:

algoritmo "semnome"

var name: caractere

sal, Msal, Ssoma: real

Nqtde, Sqtde: inteiro

inicio

Nqtde <- 0

Ssoma <- 0

Sqtde <- 0

escreval("digite o ",Nqtde + 1,"° nome ou FIM para sair: ")

leia(name)

escreval("digite o ",Sqtde + 1,"° salário: ")

leia(sal)

enquanto sal < 0 faca

   escreval("salário inválido! digite o salário novamente: ")

   leia(sal)

fimenquanto

enquanto name <> "FIM" faca

   Nqtde <- Nqtde + 1

   Sqtde <- Sqtde + 1

   Ssoma <- Ssoma + sal

   escreval("digite o ",Nqtde + 1,"° nome ou FIM para sair: ")

   leia(name)

   escreval("digite o ",Sqtde + 1,"° salário: R$ ")

   leia(sal)

   enquanto sal < 0 faca

      escreval("salário inválido! digite o salário novamente: ")

      leia(sal)

   fimenquanto

fimenquanto

se Sqtde > 0 entao

Msal <- Ssoma / Sqtde

escreva("a média dos salários é: R$",Msal)

fimse

fimalgoritmo

 

Obs: Digitando o nome FIM ainda pede o salário de "FIM", o que não é para ocorrer.
Ajuda '-'