Матрица отрецательных чисел. Pascal

[Dilex]

Ребята помогите чуть разобрать вот задание :
Дана матрица m на n.Нужно подсчитать число отрицательных элементов.

какая формула на вывод отрицательных чисел ? подправите мой код пожалуйста :

 program nik;
Uses Crt;
var
   min:Real;
   a:array [1..3,1..3] of Real;
   i,j:integer;
begin Clrscr;
   for i:=1 to 3 do begin
   for j:=1 to 3 do begin
   Write ('Введите a[',i,',',j,']=');
   Read (a[i,j]); end;end;
   for i:=1 to 3 do begin
   for j:=1 to 3 do begin
   Write (a[i,j]:2:0,'   '); end; Writeln; end;
   min:=a[i,j];
   for i:=1 to 3 do begin
    if min<a[i,j] then begin min:=a[i,j]; end; end;
   WriteLn ('min=',max:2:2);
   ReadLn;
end.

[ByAlex]

Сообщение от Dilex

Ребята помогите чуть разобрать вот задание :
Дана матрица m на n.Нужно подсчитать число отрицательных элементов.

какая формула на вывод отрицательных чисел ? подправите мой код пожалуйста :

 program nik;
Uses Crt;
var
   a:array [1..3,1..3] of Real;
   i, j, Col:integer;
begin 
   Clrscr;
   for i:=1 to 3 do
   begin
      for j:=1 to 3 do
      begin
         Write ('Введите a[',i,',',j,']=');
         Read (a[i,j]); 
      end;
   end;
   for i:=1 to 3 do
   begin
      for j:=1 to 3 do 
      begin
         Write (a[i,j]:2:0,'   '); 
      end;
      Writeln;
   end;
   Col:=0;
   for i:=1 to 3 do 
   begin
      if a[i,j]<0 then 
      begin 
         inc(Col); 
      end; 
   end;
   WriteLn('Col=', Col);
   ReadLn;
end.

Вот так должно быть!

[Dilex]

Сообщение от ByAlex

Вот так должно быть!

Большое вам спасибо !

[ByAlex]

Сообщение от Dilex

Большое вам спасибо !

Там ошибочка -

for i:=1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      if a[i,j]<0 then
      begin
        inc(Col);
      end;
    end;
  end;

[Dilex]

Помойму гдето ошибка программа выводи всегда 0 (((

[ByAlex]

Сообщение от Dilex

Помойму гдето ошибка программа выводи всегда 0 (((

Я тебе уже написал в чем ошибка!

[Dilex]

Сообщение от ByAlex

Я тебе уже написал в чем ошибка!

да да простите я писал видимо когда вы еще не ответили и поетому не заметил ! большое вам спасибо !