Boa tarde, peguei esse código aqui mesmo no forum e fiz algumas modificações e minha duvida é quando ele gera aleatorio os 80 números
dos 100 desses 80 ele fizesse outro processo aleatorio tambem so que 25 numeros impares e 25 numeros pares escolhido do 80 como faz
isso alguem poderia me ajudar obrigado.
algoritmo "Algoritmo exercicio de numeracao3"
var
vetor_100 :vetor [1..100] de inteiro //vetor armazena 100posiçoes
vetor_80_1 :vetor [1..80] de inteiro //vetor armazena 80 posições
p :inteiro //auxiliar para posicionar o vetor
i,j :inteiro //auxiliar para percorrer o vetor
OK :logico //flag para verificar se a etapa foi realizada com sucesso
aguardar:caracter //variável criada apenas para aguardar um ENTER na interação com o usuário
Inicio
MudaCor("Preto","Frente") --> caracter Azul
MudaCor("Branco","Fundos") --> fundo branco
//gera os 100 números do vetor inicial
escreval("GERANDO OS 100 NÚMEROS INICIAIS...")
para p de 1 ate 100 faca
vetor_100[p]:=p
fimpara
escreval("Tecle Enter")
leia(aguardar)
escreval("NÚMEROS GERADOS COM SUCESSO!")
//exibe os 100 números gerados
escreval()
escreval("Aqui estão os 100 números iniciais")
p:=1
para i de 1 ate 10 faca //cada linha
para j de 1 ate 10 faca //cada coluna
escreva(vetor_100[p]:2," - ")
p:=p+1
fimpara
escreval//para pular para a linha de baixo
fimpara
//Sorteia os primeiro 80 números do vetor de 100 posições
escreval("Vamos Escolher Aleatoriamente Os Primeiros 80 Números Dos 100")
para i de 1 ate 80 faca
repita // repite se precisar
ok := verdadeiro
p:=randi(100)+1 // gera um número aleatorio
se vetor_100[p]=0 ENTÃO//numero foi deletado
ok := falso
fimse
para j de 1 ate 80 faca//verifica os numeros
se ok = verdadeiro ENTÃO //se o número não houver sido deletado
se vetor_80_1[j] = vetor_100[p] ENTÃO//se no vetor já haver o numero gerado
ok := falso
interrompa
fimse
fimse
fimpara
se ok = verdadeiro ENTÃO
vetor_80_1[i] := vetor_100[p]
fimse
ate ok
fimpara
escreval("Os Primeiros 80 Números Foram Gerados Com Sucesso")
//escrevando os primeiros números gerados aleatórios
escreval("Aqui Estão Os primeiros 80 Números Gerados Aleatórios")
p:=1
para i de 1 ate 16 faca
para j de 1 ate 5 faca
escreva(vetor_80_1[p]," - ")
p := p+1
fimpara
escreval//para pular para a linha de baixo
fimpara
fimalgoritmo