LISTA 7
Algoritmos e Programação

algoritmo "Lista7_Exe1"
// Objetivo : Armazenar 10 nomes no vetor NOME e imprimir uma listagem numerada.
// Entrada : 10 nomes.
// Saída : Listagem numerada com 10 nomes.

var i, cont: inteiro nome: vetor[1..10] de caracter

inicio para i de 1 ate 10 faca escreva("Digite um nome: ") leia(nome[i]) fimpara para i de 1 ate 10 faca cont <- cont + 1 escreva(cont, "- ", nome[i]) fimpara fimalgoritmo

algoritmo "Lista7_Exe2"
// Objetivo : Armazenar 15 números inteiros em um vetor NUM e imprimir uma
//listagem numerada contendo uma das mensagens: par ou ímpar.
//Entrada: 15 numeros.
// Saída : Listagem numerada com o 15 números e a informação se é para ou ímpar.

var i, cont: …exibir mais conteúdo…

E calcular e imprimir em novo vetor reajuste
//salarial de 8% para salários inferiores a R$ 500,00 e de 5% para salários
//iguais ou superiores a este valor.
// Entrada: Quantidade de pessoas, nomes e salários.
// Saída : O salário reajustado em um novo vetor.

var i, cont, cont1, cont2: inteiro salario, salarioN, reajuste: vetor[1..20] de real nome: vetor[1..3] de caracter

inicio para i de 1 ate 5 faca escreva("Digite o nome da pessoa: ") leia(nome[i]) escreva("Digite o salário de ", nome[i] , ": R$ ") leia(salario[i]) fimpara para i de 1 ate 5 faca se salario[i] < 500 entao reajuste[i] <- (salario[i] + (salario[i] * 8/100)) fimse se salario[i] >= 500 entao reajuste[i] <- (salario [i] + (salario[i] * 5/100)) fimse salarioN[i] <- reajuste[i] escreval("Os salários de 5 pessoas reajustados é: ", salarioN[i])