[Aristarh Dark]

Если работать только с целыми числами, то примерно вот так:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  data:array of integer;
  arLen:integer;
  i,summ,med:integer;
  counter:integer;
begin
  WriteLn('Input array length');
  ReadLn(arLen);
  SetLength(data,arLen);
  counter:=1;
  summ:=0;
  for i:=Low(data) to High(data) do
    begin
      WriteLn(Format('Input element #%d',[counter]));
      ReadLn(data[i]);
      inc(counter);
      inc(summ,data[i]);
    end;
  med:=summ div arLen;
  summ:=0;
  for i:=Low(data) to High(data) do
    if data[i]=med then
      inc(summ);
  WriteLn(Format('Result - %d element(s)',[summ]));
  ReadLn;
  data:=nil;
end.