Задача на массив, нужна срочно помощь Опции

[Lortine]

Вот такая задача... мож есть примеры или идеи у кого.. алгоритымы? .. Буду очень признателен за помощь:

Упорядочить элементы строк матрицы за падением их значений методом обмена.
Найти f(a)-среднее арифмитическое значение элементов в кажом столпце матрицы
F(a)- среднее геометрическое значение

[klem4]

Я так понял ответа не дождусь sad.gif

Не стоит так драматизировать :))

Вот разбирайся ;)

uses crt;
const
  n = 3;

type
  TMatrix = array [1..n, 1..n] of Integer;

{
 Заполняем матрицу случайными числами
}

procedure Create(var mx: TMatrix);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to n do
   for j := 1 to n do
    mx[i, j] := Random(10);
end;

{
 Печатаем матрицу
}

procedure Print(const mx: TMatrix);
var
  i, j: Integer;
begin
  writeln;
  for i := 1 to n do begin
    writeln;
    for j := 1 to n do write(mx[i, j]:3);
  end;
  writeln;
end;

{
 Сортируем строку матрица с номером row методом "Пузырька"
}

procedure SortRow(var mx: TMatrix; const row: Integer);
var
  i, j, T: Integer;
begin
  for i := n downto 2 do
   for j := 1 to i - 1 do
    if mx[row, j] > mx[row, j + 1] then begin
      T := mx[row, j];
      mx[row, j] := mx[row, j + 1];
      mx[row, j + 1] := T;
    end;
end;

{
 Среднее арифм. столбца col матрицы mx
}

function SA(const mx: TMatrix; const col: Integer): Single;
var
  i: Integer;
  sr: Single;
begin
  sr := 0;
  for i := 1 to n do
   sr := sr + mx[i, col];
  SA := sr / n;
end;

{
 Среднее геометр. столбца col матрицы mx
}

function SG(const mx: TMatrix; const col: Integer): Single;
var
  i: Integer;
  p: Single;
begin
  p := 1;
  for i := 1 to n do
   p := p * mx[i, col];
  SG := p;
end;

var
  M: TMatrix;
  i: Integer;

begin
  clrscr;

  Create(M);
  Print(M);

  // сортируем все строки матрицы

  for i := 1 to n do
   SortRow(M, i);

  Print(M);

  writeln;

  // считаем среднее арифметическое и геометрическое для столбцов

  for i := 1 to n do
   writeln('i = ', i, '  SA = ', SA(M, i):3:3, '  SG = ', SG(M, i):3:3);

  readln;
end.