ENTREVISTA

var

vetNome, vetsexo : vetor[1..5] de caracter
vetIdade : vetor[1..5] de inteiro
i,menor,imenor, qtdM, qtdF : inteiro

inicio

para i de 1 ate 5 faca
    escreval("Informe o nome do entrevistado ",i)
    leia(vetNome[i])

    escreval("Informe o sexo do entrevistado ",i)
    leia(vetsexo[i])

    escreval("Informe a idade que coeçou a trabalhar ")
    leia(vetIdade[i])
fimpara

para i de 1 ate 5 faca
     se(i = 1) entao
         menor <- vetIdade[i]
         imenor <- i
     senao
         se(vetIdade[i] < menor) entao
              menor <- vetIdade[i]
              imenor <- i
         fimse
     fimse

     se(vetIdade[i] < 16) entao
         se(vetSexo[i] = "M") entao
              qtdM <- qtdM + 1
         senao
              qtdF <- qtdF + 1
         fimse
     fimse

fimpara

escreval(vetNome[imenor]," foi quem trabalhou mais cedo com ",vetIdade[imenor])

se(qtdM > qtdF) entao
    escreval("A maioria dos que trabalham anntes dos 16 anos é Homem")
senao
    escreval("A maioria dos que trabalham anntes dos 16 anos é Mulher")
fimse
fimalgoritmo