program mas;
var
b,c,d,e,f,g,n: integer;
x: string;
a: array[1..100] of integer;
i: byte;

begin
writeln('Ievadiet masiva garumu:');
readln(n);

writeln('Ievadiet masiva elementus:');
for i:=1 to n do readln(a);

writeln('Masiva elementi ir:');
for i:=1 to n do write(a:n);
writeln;
for i:=1 to n do
  if a>=0 then b:=b+1 else c:=c+1;

if b>c then writeln ('Pozitivo skaitlu ir vairak.');
if c>b then writeln ('Negativo skailtu ir vairak.');
if c=b then writeln ('Negativo un pozitivo skaitlu ir vienadi daudz.');
writeln;
for i:=1 to n do
  a:=abs(a);
  str(a,x);
  if length(x)=3 then e:=e+1;
for i:=1 to n do
  a:=abs(a);
  str(a,x);
  if length(x)=2 then d:=d+1;

if e>d then writeln ('Trisciparu skailu ir vairak neka divciparu.');
if d>e then writeln ('Divciparu skailu ir vairak neka trisciparu.');
if d=e then writeln ('Trisciparu un divciparu skaits ir vienads.');
writeln;
for i:=1 to n do
  if a>n then f:=f+1;
for i:=1 to n do
  if a<n then g:=g+1;

if f>g then writeln ('Ciparu, kas ir lielaki par masiva pedejo elementu masiva ir vairak.');
if g>f then writeln ('Ciparu, kas ir mazaki par masiva pedejo elementu masiva ir vairak.');
if g=f then writeln ('Ciparu, kas ir mazaki un lielaki par masiva pedejo elementu masiva ir vienads skaits.');
writeln;
writeln('Press Enter to exit.');
readln;
end.



Я, конечно, не проггер, но программа работает.
Может, кто помнит её ник? Её вопрос удалили просто, насколько я понимаю.
Обидно будет, если зря писал.