Desenvolva um sistema que leia uma tabela de um campeonato de futebol com 5 times, o usuário deve entrar com o número de jogos, o número de vitórias, o número de empates e o saldo de gols de cada time, você então deve calcular os pontos ganhos por cada time (uma vitória vale 3 pontos, um empate vale 1 ponto e uma derrota vale 0 pontos) e no fina…

Aula 7 - Exercício 6

Algoritmo "6"
Var
   i, j, vencedor: inteiro
   times: vetor[1..5] de caractere
   dados: vetor[1..5,1..5] de inteiro
   pontos: vetor[1..5] de inteiro
Inicio
   para i de 1 ate 5 faca
      escreval("Insira o nome do time:", i)
      leia(times[i])
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //coluna 1 numero de jogos
      escreval("Numero de jogos do time: ", i)
      leia(dados[i,1])
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //coluna 2 vitorias
      escreval("Numero de vitorias do time: ", i)
      leia(dados[i,2])
      pontos[i] <- (dados[i,2]*3) //multiplica as vitorias por 3 e atribui ao vetor pontos
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //coluna 3 empates
      escreval("Numero de empates do time: ", i)
      leia(dados[i,3])
      pontos[i] <- (pontos[i]+dados[i,3])//atualiza o vetor pontos somando a pontuação dos empates
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //coluna 4 gols
      escreval("Numero de gols do time: ", i)
      leia(dados[i,4])
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //coluna 5 derrotas
      escreval("Numero de derrotas do time: ", i)
      leia(dados[i,5])
   fimpara
   limpatela
   ///
   para i de 1 ate 5 faca //compara as pontuações e define a maior p/ a variavel vencedor
      se vencedor < pontos[i] entao
         vencedor <- pontos[i]
      fimse
   fimpara
   ///
   escreval("Jogos/Vitorias/Empates/Gols/Derrotas")
   para i de 1 ate 5 faca
      escreva(i," Time: ", times[i])
      para j de 1 ate 5 faca
         escreva(dados[i,j],"|")
      fimpara
      escreva("| Nº de pontos:", pontos[i])
      escreval
   fimpara
   escreval("----")
   //
   para i de 1 ate 5 faca
      se vencedor = pontos[i] entao
         escreva("O vencedor é o time:", i ," ", times[i], " com o total de", vencedor, " pontos.")
      fimse
   fimpara
Fimalgoritmo

Ei fiz uma alteração no código. Os segundos para não são necessários, você pode colocar o número diretamente já!
`Var
i, j, vencedor: inteiro
times: vetor[1..5] de caractere
dados: vetor[1..5,1..5] de inteiro
pontos: vetor[1..5] de inteiro
Inicio
para i de 1 ate 5 faca
escreval("Insira o nome do time ", i)
leia(times[i])
fimpara
escreval

para i de 1 ate 5 faca
escreval("Numero de jogos do time: ", i)
leia(dados[i,1])
fimpara

limpatela

para i de 1 ate 5 faca
escreval("Numero de vitorias do time: ", i)
leia(dados[i,2])
pontos[i] <- (dados[i,2]*3)
fimpara
limpatela

para i de 1 ate 5 faca
escreval("Numero de empates do time: ", i)
leia(dados[i,3])
pontos[i] <- (pontos[i]+dados[i,3])
fimpara
limpatela

para i de 1 ate 5 faca
escreval("Numero de gols do time: ", i)
leia(dados[i,4])
fimpara
limpatela

para i de 1 ate 5 faca
escreval("Numero de derrotas do time: ", i)
leia(dados[i,5])
fimpara
limpatela

para i de 1 ate 5 faca
se vencedor < pontos[i] entao
vencedor <- pontos[i]
fimse
fimpara
///
escreval("Jogos/Vitorias/Empates/Gols/Derrotas")
para i de 1 ate 5 faca
escreva(i," Time: ", times[i])
para j de 1 ate 5 faca
escreva(dados[i,j],"|")
fimpara
escreva("| Nº de pontos:", pontos[i])
escreval
fimpara
escreval("----")
//
para i de 1 ate 5 faca
se vencedor = pontos[i] entao
escreva("O vencedor é o time:", i ," ", times[i], " com o total de", vencedor, " pontos.")
fimse
fimpara
Fimalgoritmo`

-- atualizado com base na sua sugestão. @luismaruccio