Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Algoritmo "amigo koopa"
- VAR
- x:vetor[1..15] DE inteiro
- divisao:vetor[1..15] DE real
- soma:vetor[1..15] DE real
- i:inteiro
- INICIO
- PARA i DE 1 ATE 15 FACA
- ESCREVA("Informe o valor da posição" ,i, ": " )
- LEIA(x[i])
- SE (x[i] mod 2) > 0 ENTAO
- soma[i] := x[i]+5
- divisao[i] := x[i]/5
- ESCREVAL (x[i], " + 5 = ", soma[i])
- ESCREVAL (x[i], " / 5 = ", divisao[i])
- SENAO
- ESCREVAL (x[i], " não é ímpar! Finalizando execução...")
- FIMALGORITMO
- FIMSE
- FIMPARA
- PARA i DE 1 ATE 15 FACA
- ESCREVAL ("NUMERO => ",x[i], " || ",x[i], " + 5 = ",soma[i], " || ",x[i], " / 5 = ",divisao[i])
- FIMPARA
- FIMALGORITMO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement