# Delphi - Задача по массивам.

[Mysia]

Здраствуйте! Помогите, пожалуйста...
Сгенерировать матрицу размерности n на m из случайных целых чисел лежащих в диапазоне от q до p. Найти столбец содержаший наибольший элемент, делящийся без остатка на число r. Поменять местами две строки, имеющие наибольшие числа, делящиеся без остатка на заданное число r.

[BHy4ok]

Какие-то конкретные вопросы есть, в чем не смогли разобраться ?
Задача довольно простая, но нудная.

[Mysia]

Генерацию матрицы я сделала..А дальше не могу...

[MOTOCoder]

Функции поиска максимального элемента могут выглядеть примерно так:
[syntax='Delphi']
const
N=10;
M=10;

var
Matr:array[1..N,1..M] of integer;
P:integer;{нижняя граница диапазона}
R:integer;

function MaxFromCol(idx:integer):integer;{максимум из столбца}
var
I:integer;
Max:integer;
begin
Max:=P;
for i:=1 to M do
if Matr[idx,I] div R=0 then
if Matr[idx,I]>Max then
Max:=Matr[idx,I];
MaxFromCol:=Max;
end;

function MaxFromRow(idx:integer):integer;{максимум из строки}
var
I:integer;
Max:integer;
begin
Max:=P;
for i:=1 to N do
if Matr[I,idx] div R=0 then
if Matr[I,idx]>Max then
Max:=Matr[I,idx];
MaxFromRow:=Max;
end;
[/syntax]