MeuPrimeiroVetor

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

MeuPrimeiroVetor.alg
algoritmo "MeuPrimeiroVetor"
var A:vetor[1..5] de inteiro
B:vetor[1..5] de inteiro
C:vetor[1..5] de inteiro
i: inteiro
inicio
Para i<-1 ate 5 faca
 Escreval("Informe o",i,"º elemento do vetor A")
 Leia(A[i])
fimpara
Para i<-1 ate 5 faca
 Escreval("Informe o",i,"º elemento do vetor B")
 Leia(B[i])
fimpara
Para i<-1 ate 5 faca
 C[i]<-A[i]*B[i]
fimpara
 Escreva("Os elementos do vetor C são: ")
 para i<- 1 ate 5 faca
 escreva(C[i])
 escreva(" ")
 fimpara
fimalgoritmo