AULA 19

 hoje comesamos a estudar vetores dizem que isso e um bicho de 7 cabesas mas não achei nem a primeira delas srsrs,

mas  ja to me preparando porque to vendo que nesa parte a coisa vai pega fogo

1- Faça um programa que leia 10 nomes de alunos e guarde em uma lista.

algoritmo "exec_01_aula19"
var
   n:vetor [1..10] de caracter
   x:inteiro
inicio
   para x de 1 ate 10 faca
      escreva("Digite o nome do aluno",x,": ")
      leia(n[x])
   fimpara
fimalgoritmo

2- Faça um programa que leia 10 nomes de alunos e suas medias finais, e guarde em listas. Ao final, listar o nome do aluno e sua media mostrando "Aprovado" se a média for maior ou igual a 7, ou "Reprovado" caso contrario.
algoritmo "exec_02_aula19"
var
   x:inteiro
   nome,r:vetor[1..10] de caracter
   media:vetor[1..10] de real
inicio
   para x de 1 ate 10 faca
      escreva("Digite o nome do aluno",x,": ")
      leia(nome[x])
      escreva("Digite a média do ",nome[x],": ")
      leia(media[x])
      se (media[x] >= 7) entao
         r[x]<-"Aprovado"
      senao
         r[x]<-"Reprovado"
      fimse
      limpatela
   fimpara
   para x de 1 ate 10 faca
      escreval("O aluno ",nome[x]," tirou",media[x],", ele foi ",r[x],".")
   fimpara
fimalgoritmo

3- Faça um programa que leia 50 valores reais e guarde os em um vetor. Ao final mostre a soma e a média dos valores lidos.
algoritmo "exec_03_aula19"
var
   x,soma:inteiro
   v:vetor[1..50] de real
   media:real
inicio
   soma<-0
   para x de 1 ate 50 faca
      escreva("Digite um valor real: ")
      leia(v[x])
      soma<-soma+v[x]
   fimpara
   limpatela
   media<-soma/50
   escreva("A soma total foi",soma," e a média foi",media,".")
fimalgoritmo



4- Faça um programa que calcule a media ((nota1+nota2)/2) de 10 alunos e guarde em um vetor, percorra o vetor e mostre as medias. Ao final mostre a media geral do turno.
algoritmo "exec_04_aula19"
var
   n1,n2,soma,media_t:real
   media:vetor[1..10] de real
   x:inteiro
inicio
   soma<-0
   para x de 1 ate 10 faca
      escreval("Digite as notas do aluno",x)
      leia(n1)
      leia(n2)
      media[x]<-((n1+n2)/2)
      escreval("Média do aluno",x," é",media[x],".")
      soma<-soma+media[x]
   fimpara
   media_t<-soma/10
   escreval("******************************")
   escreva("Média da turma é",media_t,".")
fimalgoritmo

5- Faça um programa que mostre o mês do ano de acordo com o número (de 1 a 12) informado pelo usuário.
algoritmo "exec_05_aula19"
var
   mes:vetor [1..12] de caracter
   m:inteiro
inicio
   mes[1]<-"Janeiro"
   mes[2]<-"Fevereiro"
   mes[3]<-"Março"
   mes[4]<-"Abril"
   mes[5]<-"Maio"
   mes[6]<-"Junho"
   mes[7]<-"Julho"
   mes[8]<-"Agosto"
   mes[9]<-"Setembro"
   mes[10]<-"Outubro"
   mes[11]<-"Novembro"
   mes[12]<-"Dezembro"
   escreva("Digite um numero que representa o mês: ")
   leia(m)
   escreva(mes[m])
fimalgoritmo

 nesses programas de hoje tava legal a parte de vetores bem vasil de faser e enteder consegui faser fasilmente com a ajuda do prf.