Определить максимальный по модулю элемент каждой строки.

[(Kate)]

Снова прошу помощи по массивам, сдав предыдущую работу думала на этом и конец, а оказывается ещё одна лаба по массивам.

1) Представить математическую запись фрагмента программы и вычислить значение переменной Х после его выполнения, если элементы массива А (который описывается как var A:array [1..3,1..3] of integer; ) определяются по формулам А[L,M]=B[I] (L, M=1, 2, 3; I=1, 2, … , 9) и B[I+1]=(37*B[I]+3) mod 64 (I=1, 2, … , 8 ). Значение В[1] равно 12.
Фрагмент программы.
X:=A[1,3]; N1:=1; N:=3;
for I:=1 to N do
for J:=N-I+1 to N do
if X<A[I,J] then
begin X:=A[I,J];
N1:=I
end;

2) Дана квадратная матрица A порядка k. Определить максимальный по модулю элемент каждой строки. Результаты записать в одномерный массив.

Заранее благодарна:-[

[YurVas]

Задача 2 на скорую руку
program mas;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
i,j,k,max:integer;
begin
writeln ('vved k');
readln (k);
randomize;
writeln ('ishodnay tabl');
writeln;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=-random(50)+25;
write (a[i,j],' ');
end;
writeln;
end;
for i:=1 to k do
begin
max:=abs(a[i,1]);
for j:=1 to k do
if max<abs(a[i,j]) then max:=abs(a[i,j]);
b[i]:=max;
end;
writeln ('polush tabl');writeln;
for i:=1 to k do
write (b[i],' ');
readln;
end.

[(Kate)]

спасибо тебе большое=)