Обработка многомерных массивов в Delphi.

[Volume]

помогите решить задачу:Задана матрица Аm*n.Сформировать одномерный массив В размером m по правилу:элемент вi получает значение первого по порядку положительного элемента i-й строки,если таких элементов нет,то bi=-1.
как делать ?что-то я не понимаю.Читала ,но идеи не пришли

[Hacker19_90]

как делать ?что-то я не понимаю.Читала ,но идеи не пришли

хм... А так пробывали?

var
    a: array[1..m,1..n] of integer;
    b: array[1..m] of integer;
{///////////////////Где-то далеко////////////////}
for i := 1 to m do
begin
   pos := 0;
   for j := 1 to n do
   begin
       if a[i,j] > 0 then
       begin
           pos := j;
           break;
       end;
   end;
   if pos > 0 then b[i] := pos
   else b[i] := -1;
end;

[Volume]

нет.Так нет.Сейчас попробую так.

[Volume]

почему-то экран запуска не запускается.

[Hacker19_90]

ну покажите как вы код дополнили!

[Volume]

var
    a: array[1..m,1..n] of integer;
    b: array[1..m] of integer;
for i := 1 to m do
begin
   pos := 0;
   for j := 1 to n do
   begin
       if a[i,j] > 0 then else
       begin
           pos := j;
           break;
       end;
 if pos > 0 then b[i] := pos
   else b[i] := -1;
end;
end.

[Hacker19_90]

Я вам не весь код написал! Дополните его до программы!

[Volume]

ну я просто не поняла.
а как его дополнить до программы?т.е надо вывод и ввод написать???