QUESTÕES PARA A PROVA

Por favor, testem seus algoritmos antes de publicarem.
Verifiquem se está tudo funcionando corretamente e evitem publicar questões complexas.

Boa P3 a todos !

Escreva um algoritmo que solicite ao usuário a entrada de 5 números, e que exiba o somatório desses números na tela.
Após exibir a soma, o programa deve mostrar também os números que o usuário digitou, um por linha.

algoritmo "exercicio_01"
Var
numeros : vetor [0..4] de inteiro
cont, soma : inteiro

Inicio
para cont de 0 ate 4 faca
  escreval("Entre com um número:")
  leia(numeros[cont])
  soma <- soma + numeros[cont])
fimpara

escreval("A soma dos números é", soma)
escreval()

escreval("Os números digitados foram:")
para cont de 0 ate 4 faca
  escreval(numeros[cont])
fimpara
Fimalgoritmo

NOME: Wesley do Nascimento Santana
RA: 333607911024

Algoritmo que o vetor aceita 10 números e exibe em ordem decrescente.

algoritmo "vetor_invertido"
var
indice:inteiro
p10:vetor [1..10] de inteiro
inicio
   para indice de 1 ate 10 faca
        escreva(" Digite o ",indice,"º Nº:")
         leia(p10[indice])
  fimpara
  para indice de 10 ate 1 passo -1 faca
        escreval("exibindo o",indice,"º nº:",p10[indice])
  fimpara
fimalgoritmo

ALUNO: THIAGO AFONSO COSTA PEIXOTO
RA: 165012811024

LER 7 VALORES E MOSTRAR QUANTO SÃO PARES


Algoritmo "Pares"

Var
vet:vetor[1..7]  de inteiro
i,TotPar: inteiro

Inicio
 TotPar <- 0
 para i de  1 ate 7 faca
 
 escreval("Digite o ", i,"° valor:")
 leia(vet[i])
 
 se (vet[i] % 2  = 0) entao
 TotPar <- TotPar + 1
 
 fimse
 fimpara
 escreval("O total de pares foi:", TotPar)
 
Fimalgoritmo

NOME: Uanderson Leandro

Algoritmo que mostra o inverso do vetor


Algoritmo "inverso"

Var

X, Y: vetor [0..9] de inteiro
i:inteiro

Inicio
PARA I DE 0 ATE 9 FACA
escreva("Digite vet1[",I,"]:")
LEIA (X[I])
Y[9-I] <- X[I]
FIMPARA

PARA I DE 0 ATE 9 FACA

ESCREVAL (X[I], "-", Y[I])
FIMPARA

Fimalgoritmo

NOME: Guilherme

Faça um algoritmo que armazene em um vetor os meses respectivos do ano

Algoritmo "Mes"

Var
mes:vetor[1..12] de caracter
i:inteiro

Inicio

para i de 1 ate 12 faca
escreval ("digite o mes representado pelo numero ", i)
leia (mes[i])
fimpara
para i de 1 ate 12 faca
escreval (mes[i])
fimpara

Fimalgoritmo

LARISSA

algoritmo "Indice do vetor ao quadrado"
//Função Faça um algoritmo para gerar um vetor de 30 posições, onde cada elemento
// corresponde ao quadrado de sua posição. Imprima depois o vetor resultante.
// Seção de Declarações
var
indice:inteiro
p30: vetor [1..30] de real

inicio

para indice de 1 ate 30 faca

p30[indice]<-(indice^2)

escreval(p30[indice])
fimpara
fimalgoritmo

algoritmo "10 vetores e os impares"

//Ler números reais em vetor e depois exibir os números
//localizados nas posições impares.

var
numeros: vetor [1..10] de inteiro
i: inteiro

inicio

para i de 1 ate 10 faca
escreva("Entre com o ", i, " valor: ")
leia( numeros[i])
fimpara

para i de 1 ate 10 faca

se (( i mod 2) = 1) entao
escreva (numeros[i])
fimse
fimpara

fimalgoritmo

Algoritmo "semnome"

Var

contador: inteiro
numero: vetor[1..10] de inteiro

Inicio


para contador de 1 ate 10 faça

numero[contador] <- contador
fimpara

se(numero[contador] >= contador) então

escreval(numero[contador]*contador)
fimse



Fimalgoritmo

algoritmo "Par ou Ímpar"

var

n: vetor[1..10] de inteiro
i: inteiro

inicio

para i de 1 ate 5 faça

escreval("Digite um número: ")
leia(n[i])

se(n[i] mod 2 = 0)então
escreval("O numero",n[i]," é par ")
senão
escreval("O numer",n[i]," é impar ")
fimse
fimpara

fimalgoritmo