сортировка массива

[Dimati87]

есть массив состоящий из 5 строк 9 столбцов его нужно отсортировать так чтоб первая строка ровнялась последней строке а вторая предпоследней и т.д

[Serge_Bliznykov]

в общем случае (для любого массива) — это НЕВЫПОЛНИМАЯ (нерешаемая) задача!
Другое дело, если массив нужно не отсортировать, а заполнить!

[Dimati87]

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

в общем случае (для любого массива) — это НЕВЫПОЛНИМАЯ (нерешаемая) задача!
Другое дело, если массив нужно не отсортировать, а заполнить!

Ну да нужно заполнить.

[Stilet]

Вот пример:

   var a:array[1..5,1..9] of byte; i,k:integer;
begin
 for i:=1 to 2 do begin
  for k:=1 to 9 do a[i,k]:=random(100);
  move(a[i,1],a[5-i+1,1],9);
 end;
 for i:=1 to 5 do begin
  for k:=1 to 9 do write(a[i,k]:4);
  writeln;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Среднюю строку сам заполни.

[Dimati87]

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

Вот пример:

   var a:array[1..5,1..9] of byte; i,k:integer;
begin
 for i:=1 to 2 do begin
  for k:=1 to 9 do a[i,k]:=random(100);
  move(a[i,1],a[5-i+1,1],9);
 end;
 for i:=1 to 5 do begin
  for k:=1 to 9 do write(a[i,k]:4);
  writeln;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Среднюю строку сам заполни.

спосибо за код. а можно попросить вас коменты к коду, а то я чегото не врубился.

[Stilet]

а то я чегото не врубился.

Можно. Чего именно не понятно?
Здесь все стандартное за исключением
move(a[i,1],a[5-i+1,1],9);
Это процедура копирующая побайтно участок памяти (читай массива) в другой участок, т.е. из a[i,1] скопируется 9 чисел на противоположную сторону.
Подробности в хелпе.

[Serge_Bliznykov]

а я бы сделал в "лоб", без использования MOVE (для новичка сложновато... да и, потенциально, проблем может быть, если массив не будет храниться непоследовательно (это чисто умозрительное предположение )):

const N = 5;
var 
  a:array[1..N,1..9] of byte; 
  i,k:integer;
begin
 Randomize;

 for i:=1 to (N div 2) do 
  for k:=1 to 9 do begin 
    a[i,k]:=random(100);
    a[N-i+1,k] := a[i,k];
  end;

 {заполняем среднюю строчку 
   (если размерность массива нечётная, конечно!)}
 if odd(N) then
  for k:=1 to 9 do
    a[(N div 2)+1,k]:=random(100);
   

 {вывод матрицы}
 for i:=1 to N do begin
  for k:=1 to 9 do write(a[i,k]:4);
  writeln;
 end;
 readln;
end.