Gostaria de entender esse erro "Invalid Floating Point Operation" no VisualG, e onde está o erro no seguinte código. Caso não queiram achar o erro, apenas explique o "Invalid Floating Point Operation", não acho em nenhum lugar..
Algoritmo "Informações pessoais"
Var
idadesolteiro:vetor[0..4] de inteiro
idadeviuva:vetor[0..4] de inteiro
sexo:vetor [0..4] de caractere
idade:vetor [0..4]de inteiro
estcivil:vetor [0..4] de caractere
salario:vetor [0..4] de real
a:inteiro
mediasalmas,mediasalfem,maior,menor,mediaidadefem,somasalmas,somasalfem:real
solteiro, casado, viuvo, divorciado,f,m:caractere
mas,fem,somaIdadeFem,menoridade,maioridade,pessoamaior,pessoamenor: inteiro
c,d,s,v:inteiro
Inicio
para a de 0 ate 4 faca
Escreval("Qual o seu sexo: <F para feminino> ou <M para masculino>")
Leia(sexo[a])
Escreval("Qual o seu estado civil?(Solteiro, Casado, Viuvo, Divorciado)")
leia(estcivil[a])
//viuva mais nova e solteiro mais velho
se ((estcivil[a]="viuvo")e(sexo[a]="f")) entao
Escreval("Qual a sua idade? ")
leia(idadeviuva[b])
menoridade<-idadeviuva[0]
para a de 0 ate 4 faca
se ((idadeviuva[a]<menoridade)e (idadeviuva[a]>0)) entao
menoridade<-idadeviuva[a]
fimse
fimpara
senao
se ((estcivil[a]="solteiro")e(sexo[a]="m")) entao
Escreval("Qual a sua idade? ")
leia (idadesolteiro[a])
maioridade<-idadesolteiro[0]
para a de 0 ate 4 faca
se(idadesolteiro[a]>maioridade) entao
maioridade<-idadesolteiro[b]
fimse
fimpara
senao
Escreval("Qual a sua idade? ")
Leia(idade[a])
fimse
fimse
Escreval ("Qual o seu salário?")
leia (salario[a])
limpatela
//quantidade de pessoas de cada sexo
para a de 0 ate 4 faca
se (sexo[a]= "m") entao
mas<- mas+1
senao
fem<- fem+1
fimse
fimpara
//media do salarios de cada sexo
para a de 0 ate 4 faca
se (sexo[a]="m") entao
somasalmas<-somasalmas + salario[a]
senao
somasalfem<- mediasalfem+ salario[a]
somaidadefem<-(somaidadefem + idade[a])
fimse
fimpara
//Média salarial de cada sexo/qual o maior e menor salario
mediasalmas<- (somasalmas/mas)
mediasalfem<- (somasalfem/fem)
maior <-salario[0]
menor<- salario[0]
para a de 0 ate 4 faca
se (salario[a]>maior) entao
maior<- salario[a]
pessoamaior<-a
fimse
se (salario[a]<menor) entao
menor<- salario[a]
pessoamenor<-a
fimse
fimpara
//media da idade feminina
mediaidadefem<- (somaidadefem/fem)
escolha(estcivil[a])
caso("casado")
c<-c+1
caso("divorciado")
d<-d+1
caso("viuvo")
v<-v+1
caso("solteiro")
s<-s+1
fimescolha
fimpara
limpatela
Escreval("----------------------------------------------")
Escreval("Quantidade de pessoas: ")
Escreval("Homens: ",mas)
Escreval("Mulheres: ",fem)
Escreval("----------------------------------------------")
Escreval("A Média dos salários de cada sexo: ")
Escreval("Média salarial dos homens: ",mediasalmas ,"R$")
Escreval("Média salarial das mulheres: ",mediasalfem,"R$")
Escreval("----------------------------------------------")
Escreval("Pessoa com Maior e Menos salário: ")
Escreval("Pessoa",a,"tem o maior salário, recebendo: ",maior,"R$")
Escreval("Pessoa",a,"tem o menos salário, recebendo: ",menor,"R$")
Escreval("----------------------------------------------")
Escreval("A média de idade entre as mulheres é de: ",mediaidadefem)
Escreval("----------------------------------------------")
Escreval("A pessoa viúva mais nova, com:",menoridade,"anos")
Escreval("A pessoa é o solteiro mais velho, com: ",maioridade,"anos")
Escreval("----------------------------------------------")
Escreval("A lista de estados civil tem a seguinte ordem:",c,d,s,v,"portanto:")
adicionado 7 minutos depois
Na linha 25 acabei mudando a variável de controle, ja coloquei novamente para "a", porém o problema persiste