Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Переформировать матрицу...

Автор: UserOK 9.12.2005 21:25

Вот в школе задачку задали

Цитата
Переформировать матрицу (m*n) таким образом, чтобы ее столбцы располагались по убыванию их поэлементных сумм

Никак решить немогу...
Помогите пожалуйста, мне только перестановку столбцов нада, без примочек и выводов на экран
Заранее спасибо beer.gif smile.gif

Автор: volvo 9.12.2005 21:43

Целочисленная матрица A: M строк на N столбцов:

var
  i, j, k: integer;
  s, T: integer;
...
  { ввод матрицы }
...
  for i := 1 to n do
    for j := n downto i + 1 do begin
      s := 0;
      for k := 1 to m do
        s := s + a[k, j] - a[k, j - 1];

      if s > 0 then { < }
        for k := 1 to m do begin
          T := a[k, j - 1]; a[k, j - 1] := a[k, j]; a[k, j] := T
        end;
    end;
...
  { вывод результата }

Автор: UserOK 10.12.2005 0:26

Спасибо огроменное!!! Щас буду пробовать дальше! good.gif

Автор: hydroxychloroquine price walgree 15.09.2021 13:22

cialis que cantidad