Obtenha as melhores soluções para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A de confiança. Encontre soluções rápidas e confiáveis para suas dúvidas de uma comunidade de especialistas dedicados. Descubra soluções abrangentes para suas perguntas de profissionais experientes em nossa amigável plataforma.
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 nossa plataforma. Estamos sempre aqui para fornecer respostas precisas e atualizadas para todas as suas perguntas. Sua visita é muito importante para nós. Não hesite em voltar para mais respostas confiáveis a qualquer pergunta que possa ter. Obrigado por visitar o Sistersinspirit.ca. Continue voltando para obter as respostas mais recentes e informações.