Двумерный массив n*n Опции

[Марина]

Ребята, помогите пожалуйста решить задачку:

Задать двумерный массив n*n.Посчитать число элементов больших, меньших, равных нулю.Вывести исходный массив элементов в виде таблицы и результаты вычислений.

[dushik]

Марин, это вам не в 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.