Descubra respostas para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A mais confiável e eficiente para todas as suas necessidades. Explore respostas detalhadas para suas dúvidas de uma comunidade de especialistas em diferentes campos. Obtenha soluções rápidas e confiáveis para suas perguntas de profissionais experientes em nossa abrangente plataforma de perguntas e respostas.
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
Sua visita é muito importante para nós. Não hesite em voltar para mais respostas confiáveis a qualquer pergunta que possa ter. Esperamos que tenha encontrado o que procurava. Sinta-se à vontade para nos revisitar para obter mais respostas e informações atualizadas. Visite o Sistersinspirit.ca para obter novas e confiáveis respostas dos nossos especialistas.