использование процедур Опции

[infiniti]

Люди, помогите, пожалуйста, написать программу! Очень надо!

Даны две действительные матрицы разной размерности. Используя процедуры реорганизовать массивы следующим образом: каждый столбец массива упорядочить по невозрастанию, если его предпоследний элемент отличается более чем на 15% от среднего арифметического элементов столбца, находящихся в нечетных строках, в противном случае столбец упорядочить по неубыванию. Использование вспомогательных рабочих массивов допускается.

Сообщение отредактировано: infiniti - 19.05.2007 10:25

[volvo]

Ну вот посмотри, как я бы делал печать матрицы:

procedure print(const mx: array of real;
                m, n: integer);
var i, j: integer;
begin
  for i := 0 to pred(m) do begin
    for j := 0 to pred(n) do
      write(mx[i * n + j]:5 :2);
    writeln;
  end;
end;

const
  a: array[1 .. 5, 1 .. 5] of real = (
    (1.0, 2.0, 3.0, 4.0,  5.0),
    (2.5, 7.3, 4.8, 5.8,  2.9),
    (3.5, 6.7, 8.2, 9.5,  2.6),
    (5.5, 6.7, 3.8, 4.65, 9.4),
    (1.1, 2.7, 7.3, 0.5,  0.8)
  );

begin
  print(a[1], 5, 5);
end.

Посмотри, как организована работа с матрицей... В эту процедуру можно передать как матрицу 5x5, так и 10x8, и любую другую...