Матрицы на паскале Опции

[Валерия]

В каждом столбце матрицы упорядочить по возрастанию все элементы,расположенные между минимальным и максимальным элементами этого столбца.

решите кто может...

[volvo]

const
  nRow = 5;
  nCol = 4;

var
  a: array[1 .. nRow, 1 .. nCol] of integer;
  i, j, k, T: integer;
  min_ix, max_ix: integer;

begin
  for i := 1 to nRow do
    begin
      writeln('вводим ряд #', i);
      for j := 1 to nCol do
        begin
          write('a[', i, ', ', j, '] = ');
          readln(a[i, j]);
        end;
    end;

  for i := 1 to nCol do
    begin
      min_ix := 1; max_ix := 1;
      for j := 1 to nRow do
        begin
          if a[j, i] < a[min_ix, i] then min_ix := j;
          if a[j, i] > a[max_ix, i] then max_ix := j;
        end;
      if min_ix > max_ix then
        begin
          T := min_ix; min_ix := max_ix; max_ix := T
        end;

      for j := min_ix to max_ix do
        for k := j to max_ix do
          if a[j, i] > a[k, i] then
            begin
              T := a[j, i]; a[j, i] := a[k, i]; a[k, i] := T
            end;
    end;

  for i := 1 to nRow do
    begin
      for j := 1 to nCol do
        write(a[i, j]:4);
      writeln
    end;
  writeln('press enter');
  readln

end.

:p2:

Сообщение отредактировано: volvo - 4.11.2010 12:13