[Страдалецъ]

Если я правильно понял, то задача сводится к поиску усредненного значения по выборке и исключения из этой выборки всех значений выходящих за это значение. Тогда наверное так:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
 N = 20;
Var
 Probe,Result: Array[1..N] of Integer;
 i,j,Mid: Integer;
begin
 Randomize;
 for i := 1 to N do Probe[i] := -99 + Random(100);
 Mid := 0;
 for i := 1 to N do Mid := Mid + Probe[i];
 Mid := Abs(Round(Mid / N));
 j := 1;
 for i := 1 to N
 do begin
     if Abs(Probe[i]) > Mid then Continue;
     Inc(j);
     Result[j] := Probe[i]
     end;
 WriteLn(Mid);
 for i := 1 to N do Write(Probe[i]:4);
 WriteLn;
 for i := 1 to j do Write(Result[i]:4);
 ReadLn;
end.