algoritmo ""
var
cidade, veiculos, acidentes: vetor[1..5] de inteiro
maior_indice, cidade_maior, menor_indice, cidade_menor, soma_veic, media, soma_2000, cont_2000, i: inteiro
inicio
soma_veic <- 0
soma_acidentes <- 0
soma_2000 <- 0
cont_2000 <- 0
para i de 1 ate 5 faca
escreva ("Informe o código da cidade ", i)
leia (cidade)
escreva ("Informe o número de automóveis: ")
leia (veiculos)
escreva ("Informe o número de acidentes: ")
leia (acidentes)
soma_veic <- soma_veic + veiculos
se (i = 1) então
menor_indice <- acidentes[1] / veiculos[1]
cidade_menor <- cidade[1]
maior_indice <- acidentes[1] / veiculos[1]
cidade_maior <- cidade[1]
senao
se (menor_indice > acidentes/veiculos) então
menor_indice <- acidentes / veiculos
cidade_menor <- cidade
fimse
se (maior_indice < acidentes/veiculos) então
maior_indice <- acidentes / veiculos
cidade_maior <- cidade
fimse
fimse
se (veiculos < 2000) então
soma_2000 <- soma_2000 + acidentes
cont_2000 <- cont_2000 + 1
fimse
fimpara
escreval ("Maior índice de acidentes de transito: ", maior_indice, " na cidade: ", cidade_maior)
escreval ("Menor índice de acidentes de transito: ", menor_indice, " na cidade: ", cidade_menor)
escreval ("Média de veículos nas cinco cidades juntas: ", soma_veic / 5)
escreval ("Média de acidentes de trânsito nas cidades com menos de 2.000 veículos de passeio: ", soma_2000 / cont_2000)
fimalgoritmo
pode olha e ver o que estou fazendo de errado