Паскаль.Задача на обработку двухмерного массива.

[maximl]

Паскаль.Задача на обработку двухмерного массива.

Помогите решить пожалууйста)

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

Постановка задачи:
Необходимо выполнить заданную обработку числового двумерного массива, имеющего произвольное количество строк(N) и столбцов(M). В каждом из вариантов содержатся ограничения на максимальные значения величин N и M. Элементы массива должны вводиться с клавиатуры.
Задача:
Вычислить значение наибольшего по модулю элемента и его индекс для каждого столбца массива. N <= 10, M <= 10

Буду вечно благодарен =))

 

[maximl]

Помогите плз . срочно надо !!!

 

[Vladimir_S]

Гос-споди, ну и скучища!

CONST
N=10;
M=10;

VAR
A:ARRAY[1..N,1..M] of REAL;
i,j:Integer;
Max_Value:ARRAY[1..M] of REAL;
Max_Value_Number:ARRAY[1..M] of Integer;

BEGIN

FOR i:=1 TO N DO
FOR j:=1 TO M DO
BEGIN
Write('A[',i:2,',',j:2,']= '); READLN(A[i,j]);
END;

FOR j:=1 TO M DO
BEGIN
Max_Value[j]:=0;
FOR i:=1 TO N DO
IF ABS(A[i,j]) > Max_Value[j] THEN
BEGIN
Max_Value[j]:=ABS(A[i,j]);
Max_Value_Number[j]:=i;
END;

WriteLn('Column N ',j:2,' ',
'Max_Value = ',A[Max_Value_Number[j],j],' ',
'Max_Value_Number = ',Max_Value_Number[j]:2);
WriteLn;
END;

Readln;

END.