5.10 – Faça um programa que preencha um vetor com dez números inteiros e um segundo vetor com cinco números inteiros, calcule e mostre dois vetores resultantes. O primeiro vetor resultante será composto pela soma de cada par do primeiro vetor somado a todos os números do segundo vetor. O segundo vetor resultante será composto pela quantidade de divisores que cada numero impar do primeiro vetor tem no segundo vetor.

Algoritmo "questão 5.10"
// Disciplina   : [Linguagem e Lógica de Programação]
// Professor    : Angelo Cunha Sa
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Lucas Edson Trindade Silva
// Data atual  : 23/10/2016
Var
   // Seção de Declarações das variáveis
   vetor10 : vetor[1..10] de inteiro
   vetor5 : vetor[1..5] de inteiro
   pvetor : vetor[1..10] de inteiro
   svetor : vetor[1..10] de inteiro
   i, i2, aux : inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   para i:=1 ate 10 faca
      escreval("Digite o ",i,"º valor do vetor de 10 posições.")
      leia(vetor[i])
   fimpara
   escreval
   para i:=1 ate 5 faca
      escreval("Digite o ",i,"º valor do vetor de 10 posições.")
      leia(vetor[i])
   fimpara

   //ATRIBUIÇÃO DE VALORES PARA O PRIMEIRO VETOR RESULTANTE

   para i := 1 ate 5 faca
      aux := aux + vetor5[i]
   fimpara

   para i := 1 ate 10 faca
      se (vetor10[i] % 2) = 0 entao
         pvetor[i] := vetor10[i] + aux
      fimse
   fimpara

   //ATRIBUIÇÃO DE VALORES PARA O SEGUNDO VETOR RESULTANTE

   para i:= 1 ate 10 faca
      se (vetor10[i] % 2) = 1 entao
         para i2 := 1 ate 5 faca
            se (vetor10[i] % vetor5[i2]) = 0 entao
               svetor[i] := svetor[i] + 1
            fimse
         fimpara
      fimse
   fimpara

   //EXIBIÇÃO DO RESULTADO

   escreval("Primeiro vetor resultante:")
   escreval("(Soma de  cada número par do primeiro vetor com todos do segundo.)")

   para i := 1 ate 10 faca
      se pvetor[i] <> 0 entao
         escreval(pvetor[i])
      fimse
   fimpara

   escreval("")

   escreval("Segundo vetor resultante:")
   escreval("(Quantidade de divisores que cada número ímpar no primeiro vetor tem no segundo vetor.)")
   para i := 1 ate 10 faca
      se (vetor10[i] % 2) = 1 entao
         escreval(svetor[i])
      fimse
   fimpara

Fimalgoritmo

Fimalgoritmo

//5.9 - Faça um programa que preencha três vetores com dez posições //cada um: o primeiro vetor, com os nomes de dez produtos; o segundo //vetor, com os códigos dos dez produtos; e o terceiro vetor, com //os preços dos produtos. Mostre um relatório apenas com o nome, o //código, o preço e o novo preço dos produtos que sofrerão aumento. //Sabe-se que os produtos que sofrerão aumento são aqueles que possuem // código par ou preço superior a R$1.000,00. Sabe-se ainda que, para // os produtos que satisfazem as duas condições anteriores, código e //preço, o aumento será de 20%; para aqueles que satisfazem apenas a //condição de código, o aumento será de 15%; e para aqueles que //satisfazem apenas a condição de preço, o aumento será de 10%.

//5.9 - Faça um programa que preencha três vetores com dez posições
//cada um: o primeiro vetor, com os nomes de dez produtos; o segundo
//vetor, com os códigos dos dez produtos; e o terceiro vetor, com
//os preços dos produtos. Mostre um relatório apenas com o nome, o
//código, o preço e o novo preço dos produtos que sofrerão aumento.
//Sabe-se que os produtos que sofrerão aumento são aqueles que possuem
// código par ou preço superior a R$1.000,00. Sabe-se ainda que, para
// os produtos que satisfazem as duas condições anteriores, código e
//preço, o aumento será de 20%; para aqueles que satisfazem apenas a
//condição de código, o aumento será de 15%; e para aqueles que
//satisfazem apenas a condição de preço, o aumento será de 10%.

Algoritmo "Exercicio 5.9"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 08/11/2016
Var
   nome_prod:vetor[1..10] de caracter
   cod_prod:vetor[1..10] de inteiro
   novo_preco,preco_prod:vetor[1..10] de real
   i:inteiro
Inicio
   para i:=1 ate 10 faca
      escreval("Digite o código do ",i,"º produto")
      leia(cod_prod[i])
      escreval("Digite o nome do ",i,"º produto")
      leia(nome_prod[i])
      escreval("Digite o preço do produto")
      leia(preco_prod[i])
   fimpara
   para i:=1 ate 10 faca
      se ((cod_prod[i]mod 2 =0) ou (preco_prod[i]>1000)) entao
         se ((cod_prod[i] mod 2=0) e (preco_prod[i]>1000)) entao
            //novo_cod[i]:=cod_prod[i]
            novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.20
         senao
            se cod_prod[i] mod 2=0 entao
               // novo_cod[i]:=cod_prod[i]
               novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.15
            senao
               se preco_prod[i]>1000 entao
                  //  novo_cod[i]:=cod_prod[i]
                  novo_preco[i]:=preco_prod[i]+preco_prod[i]*0.10
               fimse
            fimse
         fimse
      fimse
   fimpara
   limpatela
   escreval("Relatorio------------------------------Novos Preços------")
   escreval
   escreval("Código------------------------Nome do Produto--------Preço Antigo-------Preço Novo---")
   escreval
   para i:=1 ate 10 faca
      se novo_preco[i]<>0 entao
         escreva(cod_prod[i]:5,"-------------------------",nome_prod[i]:20,"-------R$",preco_prod[i]:6:2,"-------R$",novo_preco[i]:6:2)
         escreval
      fimse
   fimpara



Fimalgoritmo

//5.8 - Faça um programa que preencha um vetor com os nomes de sete //alunos e carregue outro vetor com a média final destes alunos. //Calcule e mostre: //"O nome do aluno com maior média (desconsiderar empates)// //Para cada aluno não aprovado, isto é, com média menor que 7, //mostrar quanto esse aluno precisa tirar na prova de exame final //para ser aprovado.considerar que a média para aprovação no //exame é 5.

//5.8 - Faça um programa que preencha um vetor com os nomes de sete
//alunos e carregue outro vetor com a média final destes alunos.
//Calcule e mostre:
//"O nome do aluno com maior média (desconsiderar empates)//
//Para cada aluno não aprovado, isto é, com média menor que 7,
//mostrar quanto esse aluno precisa tirar na prova de exame final
//para ser aprovado.considerar que a média para aprovação no
//exame é 5.
Algoritmo "Exercicio 5.8"
Var
   nome_aluno:vetor[1..7] de caracter
   media_final:vetor[1..7] de real
   i:inteiro
   nome_media_maior:caracter
   nota_exame,media_maior:real
Inicio
   para i:=1 ate 7 faca
      escreval("Digite o nome do ",i,"º aluno")
      leia(nome_aluno[i])
      escreval("Digite a média do ",i,"º aluno")
      leia(media_final[i])
   fimpara
   media_maior:=media_final[1]
   nome_media_maior:=nome_aluno[1]
   para i:=2 ate 7 faca
      se media_final[i]>=media_maior entao
         media_maior:=media_final[i]
         nome_media_maior:=nome_aluno[i]
      fimse
   fimpara
   limpatela
   escreval
   escreval("O aluno ",nome_media_maior," obteve a maior media final com:",media_maior)
   escreval("---------------------------------------------------------")
   escreval
   para i:=1 ate 7 faca
      se media_final[i]<7 entao
         nota_exame:= 10 - media_final[i]
         escreval("O aluno: ",nome_aluno[i], " tirou media final: ",media_final[i])
         escreval("Para ele ser aprovado, ele precisa tirar ",nota_exame:4:2," no exame")
         escreval("*******************************************************")
         escreval("_______________________________________________________")
      fimse
   fimpara
Fimalgoritmo

//5.19 – Faça um programa que preencha dois vetores de dez posições e // faça a multiplicação dos elementos de mesmo índice, colocando // o resultado em um terceiro vetor. Mostre o vetor resultante.

algoritmo "Exercicio 5.19"


//5.19 – Faça um programa que preencha dois vetores de dez posições e
//       faça a multiplicação dos elementos de mesmo índice, colocando
//       o resultado em um terceiro vetor. Mostre o vetor resultante.

var vet_1, vet_2, vet_3:vetor[1..10]de inteiro

   i:inteiro

inicio


   // nesse bloco criamos e preenchemos com valores do primeiro vetor
   //
   para i de 1 ate 10 faca
      escreval("Preenchendo o ",i, "º campo do primeiro vetor")
      leia(vet_1[i])

   fimpara
   limpatela



   // nesse bloco criamos e preenchemos com valores do segundo vetor
   para i de 1 ate 10 faca
      escreval("Preenchendo o ",i, "º campo do segundo vetor")
      leia(vet_2[i])
   fimpara
   limpatela



   // preenchimento do terceiro vetor com
   //a multiplicação do 1º com o 2º e logo em seguida
   //efetua a leitura do mesmo mostrando na tela o resultado
   escrevaL("      RESULTADO    ")
   escreva("VETOR 1: ")
   para i:=1 ate 10 faca
      escreva(vet_1[i]:7)
   fimpara
   escreval
   escreva("VETOR 2: ")
   para i:=1 ate 10 faca
      escreva(vet_2[i]:7)
   fimpara
   escreval

   //preenchendo o terceiro vetor
   para i de 1 ate 10 faca
      vet_3[i]<- vet_1[i] * vet_2[i]
   fimpara

   escreva("VETOR 3: ")
   para i:=1 ate 10 faca
      escreva(vet_3[i]:7)
   fimpara


fimalgoritmo

// 5.20 – Faça um programa que leia um vetor de dez posições para números //inteiros e mostre somente os números positivos.

Algoritmo "5.20"
// Disciplina   : [Algorítmo e Técnicas de Programção]
// Professor    : Angelo da Cunha Sá
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 17/11/2016
//  5.20 – Faça um programa que leia um vetor de dez posições para números
//inteiros e mostre somente os números positivos.

Var
   // Seção de Declarações das variáveis
   n: vetor [1..10] de inteiro
   i:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...

   para i := 1 ate 10 faca
      escreval("Digite um valor")
      leia(n[i])
      limpatela
      se n[i] = 0 entao
         escreval(" Este número é nulo")
      senao
         se n[i] > 0 entao
            escreval(n[i]," é um número positivo")

         fimse
      fimse



   fimpara


Fimalgoritmo

5.21 – Faça um programa que leia // um vetor com dez posições para números inteiros. // Crie um segundo vetor, // substituindo os valores nulos por 1. // Mostre os dois vetores.

Algoritmo "5.21"

// 5.21 – Faça um programa que leia
// um vetor com dez posições para números inteiros.
// Crie um segundo vetor,
// substituindo os valores nulos por 1.
// Mostre os dois vetores.

Var
    i : Inteiro
    v : Vetor[1..10] de Inteiro
   v1 : Vetor[1..10] de Inteiro

Inicio
   Para i := 1 ate 10 faca
      Leia (v[i])
   FimPara

   Para i := 1 ate 10 faca
      Se v[i] = 0 Entao
         v1[i] := 1
      Senao
         v1[i] := v[i]
      FimSe
   FimPara

   LimpaTela

   Escreval ("Primeiro Vetor")
   Para i := 1 ate 10 faca
      Escreva (v[i])
   FimPara
 
   Escreval

   Escreval ("Segundo Vetor")
   Para i := 1 ate 10 faca
      Escreva (v1[i])
   FimPara

Fimalgoritmo

//5.22 – Faça um programa que leia um vetor A de dez posições. //Em seguida, compacte o vetor, retirando os valores nulos e negativos. //Armazene esse resultado no vetor B. Mostre o vetor B. //(lembre-se: o vetor B pode não ser completamente preenchido)

//5.22 – Faça um programa que leia um vetor A de dez posições.
//Em seguida, compacte o vetor, retirando os valores nulos e negativos.
//Armazene esse resultado no vetor B. Mostre o vetor B.
//(lembre-se: o vetor B pode não ser completamente preenchido)
algoritmo "5.22"

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

inicio
   para i de 1 ate 10 faca
      escreval (" digite um numero ")
      leia (numeros[i])
   fimpara
   l <- 0
   para i de 1 ate 10 faca
      se (numeros[i] > 0) entao
         l <- l + 1
         nulos[l] <- numeros[i]
      fimse
   fimpara
   limpatela
   escreval("Vetor digitado")
   para i de 1 ate 10 faca
    escreva( numeros[i])
   fimpara
   escreval
   escreval("Vetor Resultante")
   para i de 1 ate l faca
     escreval("______")
     escreval(nulos[i])
   fimpara
fimalgoritmo

//5.16 – Faça um programa que receba o nome de cinco produtos e seus respectivos preços. Calcule e mostre: //A quantidade de produtos com preço inferior a R$50,00; //O nome dos produtos com preço entre R$50,00 e R$100,00; //A média dos preços dos produtos com preço superior a R$100,00.

//5.16 – Faça um programa que receba o nome de cinco produtos e seus respectivos preços. Calcule e mostre: 
//A quantidade de produtos com preço inferior a R$50,00;
//O nome dos produtos com preço entre R$50,00 e R$100,00;
//A média dos preços dos produtos com preço superior a R$100,00.

algoritmo "EXERCICIO 5.16"
// Disciplina  : [Linguagem e Lógica de programaçao]
// Professor(a): ÂNGELO DA CUNHA SÁ - FAMA MACAPÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 16/11/2016
var
   // Seção de Declarações das variáveis
   NOME_PROD:VETOR [1..5] DE CARACTER
   PRECO_PROD:VETOR [1..5] DE REAL
   QTD1,QTD2,I:INTEIRO
    SOMA,MEDIA:REAL
inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 5 FACA
      ESCREVAL("DIGITE O NOME DO ",I,"º PRODUTO")
      LEIA(NOME_PROD[I])
      ESCREVAL("DIGITE O PREÇO DO PRODUTO")
      LEIA(PRECO_PROD[I])
   FIMPARA
   //A quantidade de produtos com preço inferior a R$50,00;
   QTD1:=0
   PARA I:=1 ATE 5 FACA
      SE PRECO_PROD[I]<50 ENTAO
         QTD1:=QTD1+1
      FIMSE
   FIMPARA
   ESCREVAL
   ESCREVAL("A QUANTIDADE DE PRODUTOS MENORES QUE 50 É: ",QTD1)
   ESCREVAL
   //O nome dos produtos com preço entre R$50,00 e R$100,00;
   ESCREVAL("RELATORIO DE PRODUTOS COM PREÇO ENTRE 50 E 100")
   PARA I:=1 ATE 5 FACA
      SE ((PRECO_PROD[I]>50) E (PRECO_PROD[I]<100)) ENTAO
         ESCREVAL(NOME_PROD[I])
      FIMSE
   FIMPARA
   //A média dos preços dos produtos com preço superior a R$100,00.
   SOMA:=0
   QTD2:=0
   PARA I:=1 ATE 5 FACA
      SE PRECO_PROD[I]>100 ENTAO
         SOMA:=PRECO_PROD[I]+SOMA
         QTD2:=QTD2+1
      FIMSE
   FIMPARA
   MEDIA:=SOMA/QTD2
   ESCREVAL("A MEDIA DOS PREÇOS SUPERIORES A R$100,00 É: R$",MEDIA:4:2)

fimalgoritmo

5.15 – Faça um programa que receba o nome de oito clientes e armazene-os em um vetor. Em um segundo vetor, armazene a quantidade de DVDs locados em 2011 por cada um dos oito clientes. Sabe-se que, para cada dez locações, o cliente tem direito a uma locação grátis. Faça um programa que mostre o nome de todos os clientes, com a quantidade de locações grátis a que ele tem direito.

5.15 – Faça um programa que receba o nome de oito clientes e armazene-os em um vetor. Em um segundo vetor, armazene a quantidade de DVDs locados em 2011 por cada um dos oito clientes.
Sabe-se que, para cada dez locações, o cliente tem direito a uma locação grátis. Faça um programa que mostre o nome de todos os clientes, com a quantidade de locações grátis a que ele tem direito.

algoritmo "EXERCICIO 5.15"

var

   nome_cli:vetor [1..8] de caracter
   qtd_loc,qtd_gratis:vetor [1..8] de inteiro
   i:inteiro

inicio

   para i:=1 ate 8 faca
      escreval("digite o nome do",i,"º cliente")
      leia(nome_cli[i])
      escreval("digite a quantidade locada em 2001")
      leia(qtd_loc[i])
   fimpara
   escreval("relatorio com a quantidade gratis")
   escreval
   escreval("nome------------qtd_gratis")
   escreval
   para i:=1 ate 8 faca
      qtd_gratis[i]:=int(qtd_loc[i]/10)
      escreva(nome_cli[i],"---------",qtd_gratis[i])
      escreval
   fimpara
fimalgoritmo

5.12 - Faça um programa que receba cinco números e //mostre a saída a seguir: //Digite o 1º número 5 //Digite o 2º número 3 //Digite o 3º número 2 //Digite o 4º número 0 //Digite o 5º número 2 //Os números digitados foram: 5+3+2+0+2=12

//5.12 - Faça um programa que receba cinco números e
//mostre a saída a seguir:
//Digite o 1º número 5
//Digite o 2º número 3
//Digite o 3º número 2
//Digite o 4º número 0
//Digite o 5º número 2
//Os números digitados foram: 5+3+2+0+2=12

Algoritmo "exercicio 5.12"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 12/11/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..5] de inteiro
   soma,i:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   para i:=1 ate 5 faca
      escreva("Digite o ",i,"º número ")
      leia(vet[i])
      soma:=soma+vet[i]
   fimpara
   escreva("Os números digitados foram: ")
   para i:=1 ate 4 faca
      escreva(vet[i]," +")
   fimpara
   escreva(vet[5],"=",soma)
Fimalgoritmo

5.11 - Faça um programa que receba dez números inteiros

//5.11 - Faça um programa que receba dez números inteiros
//e armazene-os em um vetor. Calcule e mostre dois
//vetores resultantes: o primeiro com os números pares
//e o segundo, com os números ímpares.
Algoritmo "Exercicio 5.11"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)

Var
   // Seção de Declarações das variáveis
   vetorpar,vetorimpar:vetor[1..10] de inteiro
   i,num,contpar,contimpar:inteiro
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   Para i:=1 ate 10 faca
      Escreval("Digite o ",i,"º número")
      leia(num)
      se num mod 2 =0 entao
         vetorpar[i]:=num
         contpar:=contpar+1
      senao
         vetorimpar[i]:=num
         contimpar:=contimpar+1
      fimse
   fimpara
   escreval
   escreval("VETOR COM NUMEROS PARES")
   Para i:=1 ate 10 faca
      se vetorpar[i]<>0 entao
         escreva(vetorpar[i])
      fimse
   fimpara
   se contpar=0 entao
      escreval("NÃO EXISTEM NUMEROS PARES")
   fimse
   escreval
   escreval
   escreval("VETOR COM NUMEROS IMPARES")
   para i:=1 ate 10 faca
      se vetorimpar[i]<>0 entao
         escreva(vetorimpar[i])
      fimse
   fimpara
   se contimpar=0 entao
      escreval("NÃO EXISTEM NUMEROS IMPARES")
   fimse
Fimalgoritmo

5.7 – Faça um programa que preencha um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.

5.7 – Faça um programa que preencha um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.
Algoritmo "Lista 05 exer 5.7"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 01/11/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..10] de real
   soma_pos:real
   i,qtd_neg:INTEIRO
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 10 FACA
      ESCREVAL("DIGITE O ",I,"º NUMERO ")
      LEIA(VET[I])
      SE VET[I]<0 ENTAO
         QTD_NEG:=QTD_NEG+1
      SENAO
         SOMA_POS:=SOMA_POS+VET[I]
      FIMSE
   FIMPARA
   ESCREVAL("-------------------------------")
   ESCREVAL("A QUANTIDADE DE NUMEROS NEGATIVOS É: ",QTD_NEG:4:2)
   ESCREVAL
   ESCREVAL("A SOMA DOS NUMEROS POSITIVOS É: ",SOMA_POS:4:2)
Fimalgoritmo

5.6 - Faça um programa que receba o total das vendas de cada vendedor de uma loja e armazene-as em um vetor. Receba também o percentual de comissão a que cada vendedor tem direito e armazene-os em um outro vetor. Receba os nomes desses vendedores e armazene-os em um terceiro vetor. Existem apenas dez vendedores na loja.

5.6 - Faça um programa que receba o total das vendas de cada vendedor de uma loja e armazene-as em um vetor. Receba também o percentual de comissão a que cada vendedor tem direito e armazene-os em um outro vetor. Receba os nomes desses vendedores e armazene-os em um terceiro vetor. Existem apenas dez vendedores na loja.
Calcule e mostre:
//a) um relatório com os nomes dos vendedores e os valores a receber referentes à comissão;
//b) o total das vendas de todos os vendedores;
//c) o maior valor a receber e o nome de que o receberá;
//d) o menor valor a receber e o nome de quem o receberá

Algoritmo "questão 5.6 vetores"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 29/10/2016
Var
   // Seção de Declarações das variáveis
   nome_vendedores:vetor[1..10] de caracter
   total_vendas:vetor[1..10] de inteiro
   valor,perc_comissao:vetor[1..10] de real
   menor_valor,maior_valor:real
   total_vendas1,I:INTEIRO
   maior_vend,menor_vend:caracter

Inicio
   // Area para inserir os dados de cada vendedor
   escreval("---------ÁREA DE INSERÇÃO DOS DADOS DE CADA VENDEDOR-------")
   para i:=1 ate 3 faca
      escreval("-----------------------------------------")
      escreval("Digite o nome do ",i,"º vendedor")
      leia(nome_vendedores[i])
      escreval
      escreval("Digite o total de vendas do vendedor: ",nome_vendedores[i])
      leia(total_vendas[i])
      escreval
      escreval("Digite o valor do percentual de comissão, a que este vendedor tem direito")
      leia(perc_comissao[i])
      limpatela
   fimpara
   escreval("---------------RESPOSTA AS QUESTÕES-----------")
   escreval("--Relatório com os nomes dos vendedores e os valores a receber referentes à comissão----")
   escreval
   escreval("Nome do vendedor-----------------Valor da Comissão")
   para i:=1 ate 3 faca
      escreval(nome_vendedores[i]:35,"R$",total_vendas[i]*perc_comissao[i]/100:4:2)
      valor[i]:=total_vendas[i]*perc_comissao[i]/100
   fimpara
   escreval
   escreval("************************************************")
   escreva("O total das vendas de todos os vendedores foi:")
   para i:=1 ate 10 faca
      total_vendas1:=total_vendas1+total_vendas[i]
   fimpara
   escreval(total_vendas1)
   escreval
   escreval("************************************************")
   //c) o maior valor a receber e o nome de que o receberá;
   //d) o menor valor a receber e o nome de quem o receberá
   maior_valor:=valor[1]
   menor_valor:=valor[1]
   maior_vend:=nome_vendedores[1]
   menor_vend:=nome_vendedores[1]
   para i:=1 ate 3 faca
      se valor[i]>maior_valor entao
         maior_valor:=valor[i]
         maior_vend:=nome_vendedores[i]
      fimse
      se valor[i]<menor_valor entao
         menor_valor:=valor[i]
         menor_vend:=nome_vendedores[i]
      fimse
   fimpara
   //c) o maior valor a receber e o nome de que o receberá;
   escreval("----O MAIOR VALOR E O NOME DO VENDEDOR---")
   escreval("R$",maior_valor:4:2,"----->> ",maior_vend)
   escreval
   escreval("************************************************")
   //d) o menor valor a receber e o nome de quem o receberá
   escreval("----O MENOR VALOR E O NOME DO VENDEDOR---")
   escreval("R$",menor_valor:4:2,"----->> ",menor_vend)

Fimalgoritmo

5.3 - Faça um programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições cada, onde o primeiro corresponde ao código do produto eo segundo, ao total desse produto em estoque.

5.3 - Faça um programa para controlar o estoque de mercadorias de uma empresa. Inicialmente, o programa deverá preencher dois vetores com dez posições cada, onde o primeiro corresponde ao código do produto eo segundo, ao total desse produto em estoque. Logo após, o programa deverá ler um conjunto indeterminado de dados contendo o código de um cliente e o código do produto que ele deseja comprar, juntamente com a quantidade. Código do cliente igual a zero indica fim do programa. O programa deverá verificar:
a) Se o código do produto solicitado existe. Se existir, tentar atender o pedido; caso contrario, exibir mensagem " Código inexistente; "
Cada pedido feito por um cliente só poderá ser atendido integralmente. Caso isso não seja possível,
escrever a mensagem--- Não temos estoque suficiente dessa mercadoria.
Se puder atendê-lo, escrever a mensagem Pedido atendido. Obrigado e volte sempre;
b) Efetuar a atualização do estoque somente se o pedido for atendido integralmente;
c) No final do programa, escrever os códigos dos produtos com seus respectivos estoques já atualizados.

Algoritmo "lista de vetores ex 5.3 "
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 22/10/2016
Var
   // Seção de Declarações das variáveis
   vet_cod_prod,vet_qtd_prod:vetor [1..10] de inteiro
   i,j,cod_cli,cod_prod,qtd:inteiro
   produt:logico

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   para i:=1 ate 10 faca
      escreval("••••••••••••••••••••••••••••••••••••")
      escreva("Digite o código do ",i,"º produto:  ")
      leia(vet_cod_prod[i])
      escreva("Digite a quantidade do ",i,"º produto: ")
      leia(vet_qtd_prod[i])
   fimpara
   escreval("******************************************")
   escreval("Digite o código do cliente")
   leia(cod_cli)
   repita
      escreval("Qual o código do produto desejado.?.")
      leia(cod_prod)
      para i:=1 ate 10 faca
         se (vet_cod_prod[i] = cod_prod) entao
            produt<-verdadeiro
            j:=i
         fimse
      fimpara
      se produt=verdadeiro entao
         escreval("Qual a quantidade desejada?")
         leia(qtd)
         se qtd<=vet_qtd_prod[j] entao
            vet_qtd_prod[j]:=vet_qtd_prod[j]-qtd
            escreval("Produto atendido. Volte sempre! ")
         senao
            escreval("Infelizmente não podemos atender seu pedido")
            escreval("Não temos estoque suficiente desta mercadoria..")
         fimse
      senao
         escreval("-----CÓDIGO INEXISTENTE-----")
      fimse
      escreval("****************************************")
      escreval("Para sair digite o código ZERO - 0  ")
      escreval("Digite o código do cliente")
      leia(cod_cli)
   ate cod_cli=0
   escreval("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")
   escreval("O estoque atualizado é:..")
   para i:=1 ate 10 faca
      escreval("--------------------------------------------------------")
      escreval("O codigo do produto é:", vet_cod_prod[i])
      escreval("A quantidade  no estoque atualizada é: ",vet_qtd_prod[i])
   fimpara
Fimalgoritmo