Lista de Exercícios de Algoritmos em Pascal - Vetores e Números

TUFR Curso 638 SISTEMA DE INFORMAÇÃO BACHARELADO NOT Campus Sede Disciplina ALGORITMOSI Graduação AnoPeriodo Letivo 20231 Discentes a A quantidade de números pares b Quais os números pares UNIVERSIDADE FEDERAL DE RONDONÓPOLIS 1 Faça um programa em Pascal que carregue um vetor de seis elementos numéricos inteiros calcule e mostre c A quantidade de números ímpares d Quais os números impares Docente Lauro Ricardo M Silva 2 Faça um programa em Pascal que carregue 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 Data 18092023 3 Faça um programa em Pascal que dada um vetor de 50 números imprimilo na ordem inversa à da leitura 4 Faça um programa em Pascal que carregue um vetor com 15 posições calcule e mostre a O maior elemento do vetor e em que posição esse elemento se encontra b O menor elemento do vetor e em que posiçaão esse elemento se encontra 5 Elabore um algoritmo que leia um vetor A de 30 números inteiros e imprima o maior valor 6 Elabore um algoritmo que dados dois vetores inteiros de 10 posições leia os dois vetores some os valores da mesma posição e armazene em um terceiro vetor inteiro de 10 posições No final imprima este terceiro vetor 7 Um time de basquete possui 12 jogadores Elabore um algoritmo que dados dois vetores NOME e ALTURA calcule e imprima o nome do jogador mais alto e a sua altura 8 Desenvolva um algoritmo onde faça a leitura de 10 números inteiros e apresente em ordem crescente em um segundo vetor e em ordem decrescente no terceiro vetor 9 Desenvolver um algoritmo onde se faça a leitura de 5 nomes 5 notas referente ao primeiro trimestre e 5 notas referente ao segundo trimestre O programa deverá armazenar em um outro vetor as médias dos alunos e apresentar os nomes com a media dos aprovados Qbs Considera aprovado maior ou igual a 70 Program Questao1 var vetor array16 of integer i contPar contImpar integer begin contPar 0 contImpar 0 randomize writevetor for i 1 to 6 do begin vetori random100 1 writevetori end writeln writeNúmeros pares for i 1 to 6 do begin if vetori mod 2 0 then begin contPar contPar 1 writevetori end end writeln writelnQuantidade de números pares contPar writeNúmeros impares for i 1 to 6 do begin if vetori mod 2 0 then begin contImpar contImpar 1 writevetori end end writeln writelnQuantidade de números impares contImpar end Program Questao2 Var vetor array 110 of real i contNegativos integer SomaPar real begin SomaPar 0 ContNegativos 0 randomize writevetor for i 1 to 10 do begin vetori Random 20 10 writevetori02 end for i 1 to 10 do begin if vetori 0 then begin contNegativos contNegativos 1 end else begin SomaPar SomaPar vetori end end writeln writelnQuantidade de números negativos contNegativos writelnSoma dos números positivos SomaPar02 end Program Questao3 var Vetor array150 of integer i integer begin randomize writeVetor original for i 1 to 50 do begin Vetori random100 1 writeVetori end writeln writeVetor inverso for i 1 to 50 do begin writeVetor51 i end end Program Questao4 var vetor array 115 of integer i maior menor indexMaior indexMenor integer begin maior 0 indexMaior 0 indexMenor 1 randomize writevetor for i 1 to 15 do begin vetori random100 1 writevetori end for i 1 to 15 do begin if vetori maior then begin maior vetori indexMaior i end end menor vetor1 for i 1 to 15 do begin if vetori menor then begin menor vetori indexMenor i end end writeln writelnmaior numero maior na posição indexMaior writelnmenor número menor na posição indexMenor end Program Questao5 var vetorA array 130 of integer i maior integer begin maior 0 for i 1 to 30 do begin writeInforme o valor para a posição i readlnvetorAi end for i 1 to 30 do begin if vetorAi maior then begin maior vetorAi end end writeln writelnMaior valor maior end Program Questao6 const TAMANHO 10 var vetorA vetorB vetorC array 1TAMANHO of integer i integer begin for i 1 to TAMANHO do begin writeVETORA Informe o valor para a posição i readlnvetorAi writeVETORB Informe o valor para a posição i readlnvetorBi vetorCi vetorAi vetorBi end writeln writeVETORC for i 1 to TAMANHO do begin writevetorCi end end Program Questao7 var nome array 112 of string altura array 112 of real i integer jogadorMaisAlto string alturaMaior real begin alturaMaior 0 for i 1 to 12 do begin writeNome do jogador i readlnnomei writeAltura readlnalturai end jogadorMaisAlto nome1 for i 1 to 12 do begin if alturai alturaMaior then begin jogadorMaisAlto nomei alturaMaior alturai end end writelnJogador mais alto jogadorMaisAlto writelnAltura alturaMaior02 end Program Questao8 const TAM 10 var vetor crescente decrescente array 1TAM of integer i j aux integer begin for i 1 to TAM do begin writeNúmero i readlnvetori crescentei vetori decrescentei vetori end for i 1 to TAM1 do begin for j i1 to TAM do begin if crescentej crescentei then begin aux crescentei crescentei crescentej crescentej aux end if decrescentej decrescentei then begin aux decrescentei decrescentei decrescentej decrescentej aux end end end writelnOrdem crescente for i 1 to TAM do begin writecrescentei end writeln writelnOrdem decrescente for i 1 to TAM do begin writedecrescentei end end Program Questao9 const TAM 5 var nomes array 1TAM of string notas1 notas2 media array 1TAM of real i integer begin for i 1 to TAM do begin writeAluno i readlnnomesi writeNota do primeiro trimestre readlnnotas1i writeNota do segundo trimestre readlnnotas2i end writelnAlunos aprovados for i 1 to TAM do begin mediai notas1i notas2i 2 if mediai 70 then begin writelnnomesi média mediai02 end end end