O Sistersinspirit.ca ajuda você a encontrar respostas confiáveis para todas as suas perguntas com a ajuda de especialistas. Obtenha respostas detalhadas para suas perguntas de uma comunidade dedicada de especialistas em nossa plataforma. Explore nossa plataforma de perguntas e respostas para encontrar respostas detalhadas de uma ampla gama de especialistas em diversas áreas.
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
Obrigado por usar nosso serviço. Nosso objetivo é fornecer as respostas mais precisas para todas as suas perguntas. Visite-nos novamente para mais informações. Obrigado por sua visita. Estamos comprometidos em fornecer as melhores informações disponíveis. Volte a qualquer momento para mais. Volte ao Sistersinspirit.ca para obter as respostas mais recentes e informações dos nossos especialistas.