Faça suas perguntas e obtenha respostas de especialistas no IDNLearner.com. Descubra uma ampla gama de tópicos e encontre respostas confiáveis dos membros especialistas de nossa comunidade.
Sagot :
algoritimo: vetor30
var vet : vetor[1..10] de inteiro vetpar : vetor[1..5] de inteiro vetimpar : vetor[1..5] de inteiro L ,J ,i , contpar , contimpar :inteiro inicio para i de 1 ate 30 faca escreval("digite um numero ") leia (vet[i]) fimpara contpar <- 1 contimpar <- 1 se ((vet[i] mod 2 ) = 0) entao vetpar[contpar] <- vet[i] contpar <- contpar + 1 se (contpar = 5 ) entao para J de 1 ate 5 faca escreval (vetpar[J]) fimpara contpar <- 1 fimse senao vetimpar[contimpar] <- vet[i] contimpar <- contimpar + 1 se (contimpar = 5 ) entao para L de 1 ate 5 faca escreval (vetimpar[L]) fimpara contimpar <- 1 fimse fimse
fim
fimalgoritmo
var vet : vetor[1..10] de inteiro vetpar : vetor[1..5] de inteiro vetimpar : vetor[1..5] de inteiro L ,J ,i , contpar , contimpar :inteiro inicio para i de 1 ate 30 faca escreval("digite um numero ") leia (vet[i]) fimpara contpar <- 1 contimpar <- 1 se ((vet[i] mod 2 ) = 0) entao vetpar[contpar] <- vet[i] contpar <- contpar + 1 se (contpar = 5 ) entao para J de 1 ate 5 faca escreval (vetpar[J]) fimpara contpar <- 1 fimse senao vetimpar[contimpar] <- vet[i] contimpar <- contimpar + 1 se (contimpar = 5 ) entao para L de 1 ate 5 faca escreval (vetimpar[L]) fimpara contimpar <- 1 fimse fimse
fim
fimalgoritmo
Valorizamos cada uma de suas contribuições. Continue fazendo perguntas e fornecendo respostas. Juntos, alcançaremos grandes realizações e aprenderemos muito. Sua busca por soluções termina no IDNLearner.com. Obrigado pela visita e esperamos ajudá-lo novamente.