Мне к понедельнику надо сделать вот эту задачу Расположить столбцы матрицы D[N, М] в порядке возрастания элементов k-и строки (1 ≤ k≤ N). Дак проблема возникает в расположении столбцов. те я не знаю как передвинуть столбцы целиком. Начало программы вот
uses SysUtils; var d:array[1..100,1..100] of integer; m,n,i,j,k:integer; begin write('Rasmernost: '); readln(n,m); randomize; writeln('Ishodnyi masiv: '); for i:=1 to n do begin for j:=1 to m do begin d[i,j]:=random(99); write(d[i,j]:4); end; writeln; end; writeln('Vvedite K: '); readln(k); if (k<1) or (k>n) then break else begin if k=i then writeln(d[i,1]); end; writeln; readln; end.
Как передвигать столбцы я понял но вот ещё проблема в том Как упорядочить по возрастанию К-ую строку и чтобы ВМЕСТЕ с её элементами передвигались столбцы массива ? Заранее спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.