Programa em Pascal

1) Faça um programa em Pascal que carregue um vetor de seis elementos numéricos inteiros, calcule e mostre:

¨ A quantidade de números pares;

¨ Quais os números pares;

¨ A quantidade de números ímpares;

¨ Quais os números ímpares.

Olá pessoal semana passada tivemos introdução a vetores no pascal e fiz estes exercicios simples e comentei algumas linhas para dar uma noção ai pro pessoal que está começando, abraços.

Exercicio 1 : Ler 10 elementos de um vetor.Verificar e mostrar o maior elemento.

Program exercicio1 ;

uses crt; { declarei essa uses para poder usar os comandos desta biblioteca}

var

i : integer; { variavel que sera usada no comando de repeticao e posicao do vetor}

maior : integer;

Vetor : array[1..10] of integer; { declarei o vetor, que vai armazenar 10 valores na posiçao de 1 a 10}

Begin

maior := 0;

for i := 1 to 10 do {para 1 ate 10 faca}

begin

writeln(' informe o elemento :',i);{informe o elemento 1, porque i recebeu 1 e na proxima vez recebera mais 1}

readln(vetor[i]); {le o valor e guarda na posicao 1 do vetor,dps na 2,3,4 ate chegar na 10}

if Vetor[i] > maior then { Se o valor armazenado no vetor for maior do que 0 entao}

maior := Vetor[i]; {maior recebe maior valor}

end; {fim do for}

writeln(' O maior valor eh ',maior);

readkey; {aguarda uma tecla ser pressionada para sair do programa}

End.

Exercicio 2 : Faã um algoritmo que leia um vetor com dez números.Após a leitura do vetor, o algoritmo deve percorre-lo e contar quantos elementos são inferiores a 7 e escrever a quantidade encontrada.

Program exercicio2;

var

vetor : array[1..10] of integer;

i: integer;

menor : integer;

Begin

for i:= 1 to 10 do {toda vez que for ter mais que uma linha de comando insira um begin}

begin

writeln('informe um numero ');

readln(vetor[i]);

if vetor[i] < 7 then

menor := menor+1;

end;

writeln(' a quantidade de numeros encontrados abaixo de 7 foram ',menor);

End.

Exercicio 3 : Faça um algoritmo que leia para um conjunto de 10 alunos a informação de que ele é bolsista ou não. O algoritmo deve escrever, em percentuais,qual é a proporção de alunos do conjunto que é bolsista.

obs : Não vi a necessidade de usar um vetor neste exercicio.

Program xd;

var

i : integer;

lol: integer;

bolsa:string;

porcento : integer;

Begin

for i:=1 to 10 do

begin

writeln('informe se o aluno ',i,' é bolsista');

readln(bolsa);

if bolsa = 'sim' then

lol :=lol+1;

end;

porcento := lol*10;

writeln(' o numero de alunos bolsistas e ',porcento,'%');

End.Olá pessoal semana passada tivemos introdução a vetores no pascal e fiz estes exercicios simples e comentei algumas linhas para dar uma noção ai pro pessoal que está começando, abraços.

Exercicio 1 : Ler 10 elementos de um vetor.Verificar e mostrar o maior elemento.

Program exercicio1 ;

uses crt; { declarei essa uses para poder usar os comandos desta biblioteca}

var

i : integer; { variavel que sera usada no comando de repeticao e posicao do vetor}

maior :