Подпрограмма пользователя

[Mystery08]

Посмотрите пожалуйста мое задание, правильно ли я делаю?!

Вычислить суммы отрицательных элементов каждого столбца матриц А(n,n), B(m,m).

Program lab9;
Uses crt;
Type matr=array [1..3,1..3] of integer;
Var
n,m,i,j: byte;
s: integer;
a,b:matr;
procedure VV(l: byte; var x:matr);
      begin
      writeln('Vvedite massiv ',l,'x',l);
      for i:=1 to l do
      for j:=1 to l do read(x[i,j]);
end;
procedure Summa(l: byte; x: matr; var s: integer);
       begin
      S:=0;
      for i:=1 to l do
      for j:=1 to l do
      if a[i,j]<0 then  S:=S+a[i,j];
      writeln('S= ',S);
 end;
     begin
     clrscr;
     writeln('Vvedite n,m');
     readln(n,m);
     VV(n,a);
     VV(m,b);
     Summa(n,a,s);
     Summa(m,b,s);
end.

[Stilet]

Неа. Не правильно. S в подпрограмме вычисляет у тебя сумму негатива для всех элементов.

[Mystery08]

Oй. Разобралась)) Спасибо.

[gaw4]

x: matr if a[i,j]<0

procedure Summa(l: byte; x: matr; var s: integer);
       begin
      S:=0;
      for i:=1 to l do
      for j:=1 to l do
      if a[i,j]<0 then  S:=S+a[i,j];

[Mystery08]

gaw4, да-да)) спасибо))