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.

Código:
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.

Código:
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.

Código:
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.
Críticas e elogios serão bem vindos, valeu