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

@fristicol · Регистрация: 23.03.2010

Author24 — интернет-сервис помощи студентам

@FuKingBrain · 07.12.2010, 22:30

m - количество столбцов
n - количество строк

Pascal

for j := 1 to m do
  for i := 1 to n - 1 do
    begin
      t := i;
      for k := i + 1 to n do
        if a[k, j] < a[i, j] then
          t := k;
      if t <> i then
        begin
          v := a[i, j];
          a[i, j] := a[t, j];
          a[t, j] := v;
        end;
    end;

@fristicol · 07.12.2010, 22:35 **[ТС]**

спасибо

@FuKingBrain · 07.12.2010, 22:45

исправил ошибку

Сообщение от FuKingBrain

m - количество столбцов
n - количество строк

Pascal

for j := 1 to m do
  for i := 1 to n - 1 do
    begin
      t := i;
      for k := i + 1 to n do
        if a[k, j] < a[t, j] then
          t := k;
      if t <> i then
        begin
          v := a[i, j];
          a[i, j] := a[t, j];
          a[t, j] := v;
        end;
    end;

@fristicol · 07.12.2010, 23:38 **[ТС]**

сенкс)

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 122
		1
	Составьте программу, упорядочивающую по возрастанию элементы каждого столбца матрицы размером mn. 07.12.2010, 22:17. Показов* 1948. Ответов 4 Метки нет (Все метки) Составьте программу, упорядочивающую по возрастанию элементы каждого столбца матрицы размером m*n. 0

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 122
	07.12.2010, 22:35 [ТС]	3
	спасибо 0

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 122
	07.12.2010, 23:38 [ТС]	5
	сенкс) 0