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 :|