Задача

[bleene]

Сформировать массив из положительных элементов той строки матрицы А размерности n×n, где обнаружен наибольший элемент этой матрицы.

[flash1989]

Код: Выделить всё

 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to n do
  if a[i,j]>max then
 Begin
 max:=a[i,j];
maxi:=i;
End;
k:=1;
for j:=1 to n do
 if a[maxi,j] > 0 then
Begin
 b[k]:=a[maxi,j];
k:=k+1;
End;

Это приблизительный отрывок нужного тебе кода, точнее его основная часть, на работоспособность не проверял, если ничего не выйдет, обращайся, но только или с попытками выполнения, или с деньгами -)
icq: 588002847