Исправить процедуру Опции

[}0pa]

Дана вот такая процедура, вычисляющая сумму положительных элементов каждой строки. Но необходимо избавиться от write(...) в этой процедуре.

Код

procedure summa (mx:PDynMatrix;c1:integer;c2:integer);
  var i,j, s:integer;
  begin
    for i:=1 to c1 do begin
    s:=0;
     writeln;
     for j:=1 to c2 do begin
      if  mx^[I]^[J]>0 then
       s:=s+mx^[I]^[J]
     end;
     write('Matrica А :summa polozhitelnih elementov ',i,'-oy stroki = ',s);
  end;
  writeln;
end;

А вывести нужно в самой основной программе для любой дин.матрицы.
что-то вроде

Код

procedure summa (mx:PDynMatrix;c1:integer;c2:integer;s:integer);
begin
.....
.....
....
end;
  begin
  summa(A,n,m,s1);
  write(s1);
  end.

Но так как там сумма динамическая, у меня возникли некоторые проблемы

Сообщение отредактировано: }0pa - 7.10.2006 9:23

[volvo]

Malice, ты с открытыми массивами встречался? Индексация ВСЕГДА с нуля, им по барабану, как описана сама переменная... Хоть так:

Var
  vec: array[-100 .. 199] of Integer;

хоть так

Var
  vec: array[100 .. 400] of Integer;

- обращаться в процедуре все равно надо от 0 до 299...