Algoritmo calcula média entre alunos

// Função : calcula media

// Seção de Declarações

var

idade, Cont_H, Cont_M, idade_H, idade_M : inteiro

sexo : caractere

inicio

idade 0 faca

escreva ("Digite o Sexo, [H] ou [M]: ")

leia(sexo)

escreva ("Digite a idade: ")

leia(idade)

se sexo="H" entao

idade_H <- idade_H + idade

Cont_H <- Cont_H + 1

senao

se sexo="M" entao

idade_M <- idade_M + idade

Cont_M <- Cont_M + 1

fimse

fimse

fimenquanto

escreval ("A media dos alunos de Sexo H é ", Idade_H/Cont_H)

escreva ("A media dos alunos de Sexo M é ", Idade_M/Cont_M)

fimalgoritmo