Conjugação de numeros pares e impares (2)

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

algoritmo "Conjugação de numeros pares e impares"
// Ler duas matrizes A e B de uma dimensao com 6 elementos. A matriz A devera
// aceitar apenas a entrada de valores pares, enquanto a matriz B devera aceitar
// apenas a entrada de valores impares. A entrada das matrizes devera ser validada
// pelo programa e nao pelo usuario. Construir uma matriz C de forma que a matriz
// C seja a junçao das matrizes A e B, de modo que a matriz C contenha 12 elementos.
// Apresentar a matriz C.
var
A, B: vetor [1..3] de inteiro
C,N: vetor [1..6] de inteiro
I,K,R,J,U: inteiro
inicio
 PARA I de 1 ate 6 FACA
 escreva("Digite os elementos do vetor: ")
 Leia (N[I])
 FIMPARA
 
 J <- 1
 K <- 1
 PARA I de 1 ate 6 FACA
 
 SE (N[I]mod 2)=0 ENTAO
 A[J] <- N[I]
 J <- J+1
 SENAO
 B[K] <- N[I]
 K <- K+1
 FIMSE
 FIMPARA
 I <- 1
 U <- 4
 K <- 1
 PARA J DE 1 ATE 3 FACA
 C[I] <- A[J]
 C[U] <- B[K]
 U <- U+1
 I <- I+1
 K <- K+1
 FIMPARA
 PARA J DE 1 ATE 3 FACA
 escreval ("O elemento ", J, " do vetor A é: ", A[J])
 FIMPARA
 PARA K DE 1 ATE 3 FACA
 escreval ("O elemento ", K, " do vetor B é: ", B[K])
 FIMPARA
 PARA I DE 1 ATE 6 FACA
 escreval ("O vetor C é: [", C[I], " ]")
 FIMPARA
fimalgoritmo