дан двумерный массив найти сумму элементов массива между первым и последним положительным числом

[qqq``]

дан двумерный массив найти сумму элементов массива между первым и последним положительным числом

[NetSpace]

например,
3- 4 -6 -7 8 14
-4 -6 7 -8 -12 -4
и смотрим, первое положительное 4, последнее положительное - 7.
между ними куча чисел, их складываем: -6-7+8+14-4-6 = ответ.

что ещё?

[qqq``]

я хотел посмотреть программный код, код я написал но он не работает поэтому хотел посмотреть реализацию другого человека

[p51x]

что ещё?

Ну на пример вспомнить, что в двумерных массивах нет порядка. Я вот утверждаю, что последнее положительное 14. И?

[qqq``]

Я хочу узнать цикл который будет проходить между первым положительным элементом и последним , для нахождения первого положительного использовал обычный цикл с параметром ,для последнего цикл for down to

[p51x]

Ну так вы перечитайте мой пост и скажите, какой у вас порядок задан. По строка? По столбцам? По диагоналям? ... ?

[qqq``]

я делал счёт по строкам

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,j1,j2,s:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 10 do
   begin
      j1:=10;
      j2:=1;
      For j:=1 to 10 do
         If p[i,j]>0 then
         begin
            j1:=j;
            Break;
         end;
      For j:=10 downto 1 do
         If p[i,j]>0 then
         begin
            j2:=j;
            Break;
         end;
      s:=0;
      For j:=j1+1 to j2-1 do
         s:=s+p[i,j];
      Writeln(s);
   end;
   Readln;
end.