Модули Паскаль

[Наталья Т]

Не получается решить задачу((((((
Для произвольных числовых матриц составить библиотеку алгоритмов:
- переставляя строки и столбцы матрицы добиться, чтобы max (min) элемент оказался:
а) в верхнем левом углу матрицы;
б) в нижнем правом углу матрицы;
- вычислить след. матрицы (след - сумма диагональных элементов).
- - вычислить сумму элементов матрицы, удовлетворяющих заданному условию. Условие задается булевской функцией в вызывающей программе.

[ZvEr_HaCkEr]

Что именно? Где наработки??

[OlegVE]

Здравствуйте
Посмотрите здесь
http://www.cyberforum.ru/delphi-begi...read37142.html
До свидания

[Наталья Т]

Вообще ничего не получается.((((

[Наталья Т]

function Multiply (M, N, P: integer; A, B:MATRIX; var C:MATRIX): boolean;
var i, j, k;
begin
for i:=1 to M do
for j:=1 to P do
begin
c[i,j] := 0;
for k:=1 to N do
c[i, j] := c[i, j]+ a[i,k]*b[k,j];
end;
Multiply := true;
end;

а что дальше? это функция

[Vanta11a]

И что ЭТО, я извиняюсь, делает? Оно к Вашему заданию отношения не имеет. Скопипастили на "отцепись"?