Portugol Melhorar este algoritmo em portugol

[Victor - Venezuela]

·         Objetivo do algoritmo: Ler e imprimir um vetor com 42 elementos inteiros separar e escrever os números pares e impares do vetor, em dois vetores diferentes.

·         Entrada: Ler um vetor com 42 números inteiros

·         Processamento: Calcular números pares e impares

·         Saída: Imprimir números pares e impares em dois vetores diferentes

 

Algoritmo vetor par – vetor impar

Var

Inteiro v[42], par[42], impar[42], x=0, y=0

Inicio

Para(inteiro x=0; x<42; x++){

escreva(“Digite 42 numeros inteiros:\n\n”)//preenchimento do vetor//

fim_para

para(i=0; i<42; i++)

se(num[i]%2 == 0)//verificação se o número é par//

par[x]=num[i];//Armazenamento dos numeros pares no vetor par//

fim_para

x++; //incremento do índice do vetor par//

  else //se o numeto inteiro não é par, é ímpar!// 

              impar[y]=num[i];//Armazenamento dos numeros ímpares no vetor ímpar//

      y++; //incremento do índice do vetor ímpar//

escreva("\nNumeros pares digitados\n"); //impressão do vetor par//

fim_para

para(i=0; i<x; i++)

escreva("\nNumeros impares digitados\n");//impressão do vetor ímpar//

fim_para

  para(i=0; i<y; i++)        

  escreva("%d\n",impar[i]);            

fim_para

[devair1010]

@Victor - Venezuela   qual compilador você está usando  :?   ,   está misturado visual studio com visualG ,  a sintaxe  de um não é igual a do outro  ,   e em visualG poderia ser assim  :

Algoritmo "vetor par – vetor impar"
Var
  v,par,impar : vetor[1..42] de inteiro
  x , q , w   : inteiro
Inicio
  escreval("Digite 42 numeros inteiros:")
  Para x de 1 ate 2 faca
    escreva("Digite o ",x," numero ynteiro: ")
    leia(v[x])
  fimpara
  repita
    x := x + 1
    v[x] := randi(100) + 1
  ate x = 42
  para x de 1 ate 42 faca
    se v[x] mod 2 = 0 entao  // verificação se o número eh par
      w := w + 1              // incrementa a posicao no vetor de par
      par[w] := v[x]          // Armazenamento dos numeros pares no vetor par
    senao
      q := q + 1              // incrementa a posicao no vetor de impar
      impar[q] := v[x]
    fimse
  fimpara
                              // escrever os nUmeros pares do vetor
  escreval
  escreval("|Numeros pares digitados  +  Numeros impares digitados|")
  escreval("|-------------------------|---------------------------|")
  q := 1
  para x de 1 ate 42 faca
    se ( par[x] <> 0 ) ou ( impar[q] <> 0 ) entao
      se par[x] <> 0 entao
        escreva("|   ",par[x]:11,"           |")
      senao
        escreva("|                         |  ")
      fimse
      se impar[q] <> 0 entao
        escreval(impar[q]:11,"                |")
        q := q + 1
      senao
        escreval("                           |")
      fimse
    fimse
  fimpara
  escreval("+-------------------------|---------------------------+")
  escreval
  escreval
fimalgoritmo