Duvida - Fortran

[Vinicius XiTa]

Ola pessoal, sou novo aqui no forum.

Um professor passou 5 questoes e eu estou com uma duvida aqui.

O enunciando da questo é:

Anualmente, o condomínio “Lar doce lar”, realiza uma eleição para escolher o seu síndico geral. Segundo o regimento interno do condomínio, a quantidade máxima de candidatos para uma eleição é de 10. Logo, será considerado síndico aquele que receber a maior quantidade de votos. Sendo assim, elabore um programa que leia a quantidade de candidatos ao cargo de síndico de uma determinada eleição, e para cada um deles seja lido seu nome, sexo (M ou F) e a quantidade de votos recebida, e determine:

a. O nome e sexo do candidato eleito.

b. A soma dos votos dos candidatos que tiveram o número de votos abaixo da média.

c. A porcentagem de candidatos que tiveram o número de votos igual ou superior à média.

Eu fiz assim:

program questao_11

implicit none

integer :: num_cand,i,qnt_vot,maior_qnt,soma,qnt_sup,som

integer :: meior_qnt

real :: med_vot, porc,

character :: nome, sexo, cand_eleit, sexo_cand

dimension nome(10)

dimension sexo(10)

dimension qnt_vot(10)

write(*,*)"Digite o n£mero de candidatos:"

read(*,*)num_cand

qnt_sup = 0

maior_qnt = 0

soma = 0

med_vot = 0

som = 0

do i= 1, num_cand

write(*,*)"Digite o nome :"

read(*,*)nome(i)

write(*,*)"Digite o sexo:"

read(*,*)sexo(i)

write(*,*)"Digite numero de votos:"

read(*,*)qnt_vot (i)

soma = soma + qnt_vot (i)

med_vot = real(soma / num_cand)

if ( qnt_vot(i) < med_vot) then

som = som + qnt_vot (i)

end if

if (qnt_vot (i) >= med_vot) then

qnt_sup = qnt_sup + 1

endif

if (qnt_vot (i) > maior_qnt) then

maior_qnt = qnt_vot (i)

cand_eleit = nome(i)

sexo_cand = sexo(i)

endif

porc = (qnt_sup/num_cand) * 100

enddo

write(*,*)"Nome do candidato eleito:", cand_eleit

write(*,*)"Sexo do candidato elito:", sexo_cand

write(*,*)"Soma de votos abaixo da m‚dia:", som

write(*,*)"Porc de pessoas com votos acima da media", porc

pause

end

A porcentagem só da zero e eu já não sei mais como fazer :|

[Jhonas]

if (qnt_vot (i) > maior_qnt) then
maior_qnt = qnt_vot (i)
cand_eleit = nome(i)
sexo_cand = sexo(i)
endif
porc = (qnt_sup/num_cand) * 100
enddo

experimente assim

if (qnt_vot (i) > maior_qnt) then
maior_qnt = qnt_vot (i)
cand_eleit = nome(i)
sexo_cand = sexo(i)
endif

enddo

porc = (qnt_sup/num_cand) * 100

OBS: vale lembrar que se ( qnt_sup ) for zero o resultado ( porc ) será sempre zero

abraço