Процедура.

[SteaZ]

Не совсем понимаю условие задачи:

Вычислить сумму положительных элементов каждой строки массива A(N, M) и сумму отрицательных элементов каждой строки массива B(M, L).

Если не сложно, помогите сделать процедуру, пожалуйста.

[ROMA2PVT]

for i := 1 TO n DO
  begin
    sumpol := 0;
    for j := 1 TO m DO
      if MAS[I, j] > 0 THEN
        sumpol := sumpol + mas[i, j];
    writeln('Сума положительных элементов ', i, '-й строки:=', sumpol);
  end;

для отрицательных знак изменить на <