program project1;
USES
    crt;
type
  vetor = array[1..10] of integer;


 procedure menu (var opcao:integer);

begin
 writeln ('MENU');
 writeln ('1) ADICIONAR');
 writeln ('2) LISTAR');
 writeln ('3) MAIOR');
 writeln ('4) MENOR');
 writeln ('5) QTD MAIOR Q 100');
 writeln ('6) SAIR');
 write ('Digite sua opcao: ');
 readln (opcao);
end;
 //adicionar
procedure adicionar(var vet: vetor;var  cont: integer);
begin
 begin
 if cont >= 10 then
 begin
 writeln('VETOR CHEIO!!');
 end
 else
begin
cont := cont+1;
 write('Digite um valor: ');
 readln(vet[cont]);
end;
clrscr;
end;
end;

procedure listar( vet : vetor;  cont : integer);
var
j : integer;
begin
for j := 1 to cont do
writeln(vet[j]);
end;



//menor
function menor (vet:vetor; cont:integer):real;
var
j : integer;
menores : real;
begin
menores := 999999;
for j := 1 to cont do
begin
if vet[j] < menores then
menores := vet[j];
end;
menor:=menores;
clrscr;
end;

//maior

function maior(vet:vetor; cont:integer) : real;
var j : integer;
    maiores : real;
begin
maiores := 0;
 for j := 1 to cont do
 begin
   if vet[j] > maiores then
      maiores := vet[j]
   end;
 maior:=maiores;
 clrscr;
end;

//maior q 100

function maiorQ100 (vet:vetor; cont:integer):integer;
var
  i,qtd : integer;
  begin
   qtd:=0;
   for i := 1 to cont do
   if (vet[i]>100) then
   qtd:=qtd+1;
   maiorQ100:=qtd;
   end;



//programa principal
var
opcao: integer;
cont: integer;
valores: vetor;

begin
repeat
   begin
   menu(opcao);
   case opcao of
     1: begin
   adicionar(valores,cont);
     end;
     2: listar(valores,cont);
     3: writeln('O maior valor foi: ', maior(valores, cont):2:3);
     4: writeln('O menor valor foi: ', menor(valores, cont):2:3);
     5: writeln ('A qtd de numeros maiores que 100 sao: ', maiorQ100(valores, cont));
     6: writeln('SAIR');

  else
  writeln('Digite uma opcao valida: ');
   end;
   end;
until opcao = 6;
readkey;
END.