Процедуры (паскаль)

[gogolik]

Составить программу-процедуру RE(A,M,N,K,R), которая в матрице А, содержащей М строк и N столбцов, находит строку, содержащую максимальный по модулю элемент столбца с комером К, и присваивает значения ее элементов вектору R, содержащему N элементов.
Использовать составленную процедуру для формирования вектора B1(8), если задана матрица P1(7,8) и К=6, а так же вектора B2(5), если задана матрица P2(7,5) и K=2. Исходные данные и результаты вывести.

Как назло - не могу сделать... Даже идей нет... Буду благодарен любой помощи.

[gogolik]

Собственно, ап... (((

[p51x]

В чем конкретно сложность? Если "напишите за меня", тогда в фриланс.

[gogolik]

Ах, да, забыл. Пардон. Сделал я вот такое чудо - оно не работает.

program wtf7;
uses crt;
type PMAS=array [1..10,1..10] of integer;
LMAS=array [1..10] of integer;
var
max,nom:integer;
p1,p2: pmas;
b1,b2: lmas;
M,N,K,I: integer;
procedure re(A: PMAS;M,K,N: integer;
var R: LMAS);
var
i: integer;
begin
max:=a[1,k];
nom:=1;
for i:=1 to N do begin
if a[i,k]>max then begin
max:=a[i,k];
nom:=i;
end;
for i:=1 to N do
R[i]:=a[nom..i];
end;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 8 do
P1[i,j]:=random(9)+1;
K=6;
re(p1,8,6,7,R);
for i:=1 to 8 do
writeln(R[i]);
for i:=1 to 7 do
for j:=1 to 5 do
P2[i,j]:=random(9)+1;
K:=2;
re(p2,5,2,7,R);
for i:=1 to 5 do
writeln(R[i]);
readkey;
end.

[gogolik]

Тема закрыта.