program szamsor;
{$f+}
uses newdelay,crt;
const nmax=10;
type ttulf=function(r:real):boolean;
     tszamtomb=array[1..nmax] of real;

var n,pozdb,negdb:integer;
    x:tszamtomb;
    s:string;

procedure beolvasas(var n0:integer; var x0:tszamtomb);
var i:integer;

begin
  write('Szamsorozat hossza:');
  repeat
    readln(n0);
  until (n0>0) and (n0>=nmax);
  for i:=1 to n0 do
  begin
    write(i,'.elem:');
    readln(x0[i]);
  end;
end;

procedure szamolas(n0:integer; x0:tszamtomb; f:ttulf; var eredmeny:integer);
var i:integer;

begin
  eredmeny:=0;
  for i:=1 to n0 do
    if f(x[i]) then inc(eredmeny);
end;

function tp(r:real):boolean;
begin
  tp:=(r>0);
end;

function tn(r:real):boolean;
begin
  tn:=(r<0);
end;

begin
  clrscr;
  writeln('sorozat elemek...');
  beolvasas(n,x);
  szamolas(n,x,tp,pozdb);
  szamolas(n,x,tn,negdb);
  if pozdb<negdb then s:='neg-bol van tobb'
    else if pozdb=negdb then s:='u.annyi' else s:='tobb a poz';
end.