[Alegun]

На форму нужно кинуть кнопку и мемо

Код:

uses Math;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 a  : array [1..100] of integer;
 tmp: array of double;
 i,b: integer;
begin
 Memo1.Clear;
 Randomize;
 for i := 1 to 100 do
  begin
   a[i]:= Random(100);
   Memo1.Lines.Add(IntToStr(a[i]));
  end;

 Memo1.Lines.Add('');
 b:= 0;

 for i := 1 to 100 do if a[i] > 50 then inc(b);

 if b > 0 then SetLength(tmp, b) else
  begin
   Memo1.Lines.Add('Элемент не найден');
   Exit;
  end;

 b:= 0;

 for i := 1 to 100 do if a[i] > 50 then
  begin
   tmp[b]:= a[i];
   inc(b);
  end;

 Memo1.Lines.Add(FloatToStr(Mean(tmp)));
end;