Pascal

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ça um algoritmo que leia um vetor com dez números. Após a leitura do vetor, o algoritmo deve percorrê-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