Exercício - Vetor

{Elabore um programa para cadastrar 10 elementos do tipo inteiro em um vetor
  de 10 posições. E depois calcule:

   a) a media de todos os elementos
   b) exiba os elementos acima da média e a posição dele no vetor
   c) o total de elementos acima da média                           }
   

program vetor_1;

uses crt;

const
     TAM = 10;

var
     numeros            : array[1..TAM] of integer;
     qtde, soma, i      : integer;
     media              : real;

begin
     clrscr;
     soma:=0;
     qtde:=0;

     {**** Cadastramento dos numeros ****}
     for i:= 1 to TAM do
     begin
          write ('Informe o ',i,'§  numero de 10: ');
          readln (numeros[i]);
          soma:= soma + numeros[i];
     end;

     {**** Calculo da media dos elementos ****}
     media := soma / TAM;

     writeln;
     writeln;

     {**** Exibir os números acima da média ****}
     writeln ('Numeros digitados acima da media dos demais: ');
     for i := 1 to TAM do
     begin
         if (numeros[i] > media) then
         begin
            qtde := qtde + 1;
            writeln ('Posicao ',i,' e o numero e ',numeros[i]);
         end;
     end;

     writeln;
     writeln;
     writeln ('A media dos numeros digitados e : ',media:6:2);
     writeln ('Quantidade de numeros acima da media: ',qtde);
     writeln;
     writeln ('Tecle <ENTER> para SAIR...');
     readkey;

end.