Задача
Добавлено: 07 дек 2010, 21:43
Сформировать массив из положительных элементов той строки матрицы А размерности n×n, где обнаружен наибольший элемент этой матрицы.
Код: Выделить всё
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