Вот на Pascale тебе
program mas;
uses crt;
var
i,pol,otr,nul:integer;
x:array[1..100]of real;
n:integer;
begin
writeln('vvedite n');
readln(n);
otr:=0;
pol:=0;
nul:=0;
for i:=1 to n do begin
readln(x[i]);
if x[i]
if x[i]>0 then pol:=pol+1;
if x[i]=0 then nul:=nul+1;
end;
writeln('polojit',pol);
writeln('otricat',otr);
writeln('nulev',nul);
readln;
end.