Марин, это вам не в 7-ом классе случайно дали задачку такую?
Код
uses crt;
const
n=10;
var
mas:array[1..n,1..n] of integer;
i,j,max,min,nol:integer;
begin
clrscr;
min:=0; max:=0; nol:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
mas[i,j]:=random(20)-10;
if mas[i,j]>0 then max:=max+1
else if mas[i,j]<0 then min:=min+1
else nol:=nol+1;
write(mas[i,j],'|');
end;
writeln;
end;
writeln;
writeln('bolshe 0 - ',max);
writeln('menshe 0 - ',min);
writeln('ravnih 0 - ',nol);
end.