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

Автор: vadim(b) 12.11.2006 3:14

Мне к понедельнику надо сделать вот эту задачу Расположить столбцы матрицы 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.

Автор: volvo 12.11.2006 3:22

http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100

Автор: vadim(b) 13.11.2006 2:42

Как передвигать столбцы я понял но вот ещё проблема в том Как упорядочить по возрастанию К-ую строку и чтобы ВМЕСТЕ с её элементами передвигались столбцы массива ? Заранее спасибо!