30. Отсортируйте элементы матрицы в каждом столбце по убыванию

@Светлан0чка · Регистрация: 01.04.2013

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

30. Отсортируйте элементы матрицы в каждом столбце по убыванию.

@Erea · 13.06.2013, 18:54

Pascal

A: array [0..n,0..n] of integer;
for r:=0 to n do begin
for i:=0 to n-1 do begin
   for j:=i+1 to n do begin
       if A[i,r]<A[j,r] then begin
           tmp:=A[i,r];
           A[i,r]:=A[j,r];
           A[j,r]:=tmp;
       end;
   end;
end;
end;

@Светлан0чка 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 32
		1
	30. Отсортируйте элементы матрицы в каждом столбце по убыванию 13.06.2013, 18:37. Показов 1012. Ответов 1 Метки нет (Все метки) 30. Отсортируйте элементы матрицы в каждом столбце по убыванию. 0

	13.06.2013, 18:54

30. Отсортируйте элементы матрицы в каждом столбце по убыванию

Решение