Questão 1

Para o primeiro exercício inclua quantos valores estão acima e abaixo da média

Program ;
var
maior, menor, soma, cont, con, cot : integer;
media :real;
vetor: array[1..50] of integer;
pmaior, pmenor, qacima, qabaixo: integer;

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := (random(99)+1);

if(vetor[cont] > maior)then
begin
maior:= vetor[cont];
pmaior:= cont;
end;

if(vetor[cont] < menor)then
begin
menor := vetor[cont];
pmenor:= cont;
end;

soma:= soma + vetor[cont];
end;

media:= soma/50;
for cot:=1 to 50 do
begin
if(vetor[cot]> media) then qacima:= qacima +1;
if(vetor[cot]
end;
for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior,' e esta na posicao ',pmaior);
writeln('O menor numero e ',menor,' e esta na posicao ',pmenor);
writeln(qacima,' numero estao acima da media');
writeln(qabaixo,' numero estao abaixo da media');