помогите, пожалуйста, решить задачу с матрицей

[13Anka07]

Заполнение массива исходными случайными целыми значениями из диапазона [-50;50]. Размеры массива М и (или N) взять постоянными, равными целым числам от 5 до 10. Требуется выводить на экран массив до сортировки (исходный массив) и после сортировки (отсортированный массив).
Дана целочисленная прямоугольная матрица порядка N. Таким образом переставить сроки матрицы, чтобы их последние элементы располагались в порядке невозрастания. Метод сортировки – подсчетом.

жду и ВЕРЮ

[Dirt]

Привет.

А что вы уже сделали?

[13Anka07]

Program 3
Const N=10;
Var a: array [1..N,1..N] of integer;
i,j,k: integer;
b:array[1..N,1..N]; {отсортированный массив}
c: array[1..N,1..N]; {количественный массив}
p: integer; {шаг}
Begin {заполнение матрицы случайными значениями}
Randomize;
for i:=1 to k do begin
for j:=1 to k do begin
a[i,j]:=Random(101)-50;
write(a[i,j]:4);
end;
writeln;
end;
readln;
for i:=1 to k do
j:=k;
c[i,j]:=0;
{подсчет}
for i:=1 to k-1 do {первый элемент пары}
for p:=i+1 to k do {второй элемент пары}
if a[i,j]<a[p,j] then c[p,j]:=c[p,j]+1
else c[i,j]:=c[i,j]+1;
{расстановка в новый массив}
for i:=1 to k-1 do
b[c[i,j]+1]:=a[i,j];
writeln;
END.

[13Anka07]

помогите, пожалуйста. Я уже с этой задачкой очень долго сижу. По-разному пыталась решать, но почему-то никак не идет

[Dirt]

Как вам надо отсортировать? по столбцам, по строкам или полностью матрицу?

[13Anka07]

переставить местами строки матрицы , т.е. отсортировать всю матрицу.)))) Должно получиться примерно такое:
ТЕСТ
Исходная матрица:
2 3 4 5
1 8 3 7
7 2 8 1
4 5 2 3

Отсортированная матрица:
1 8 3 7
2 3 4 5
4 5 2 3
7 2 8 1

[Gongled]

Если я верно понял задание:

program pr;
uses CRT;
const
n = 4;
m = 6;
type
DMass = array[1..n,1..m] of integer;
var
a : DMass;
i, j, k : integer;

procedure swap(var x,y : longint);
var
temp : longint;
begin
     temp := x;
     x := y;
     y := temp;
end;

begin
clrscr;
randomize;

writeln('Исходный массив:');
for i:=1 to n do
begin
     for j:=1 to m do
     begin
          a[i,j] := random(101)-50;
          write(a[i,j]:4);
     end;
writeln;
end;

for i:=1 to n-1 do
begin
     for j:=1 to n-i do
     begin
          if a[j,m] < a[j+1,m] then
          begin
               for k:=1 to m do
               swap(a[j,m-k+1],a[j+1,m-k+1]);
          end;
     end;
end;

writeln('Отсортированный массив:');
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
writeln;
end;

end.

UPD: Упс. Выполнил без метода подсчёта. Попробую ещё подумать.

[13Anka07]

спасибо большое!!!!! Я очень рада))))) Пожалуста, попробуйте все-таки методом подсчета((((

[13Anka07]

??? (((( пожалуста, кто-нибудь помогите решить!! (( скоро уже сдавать надо, целый месяц сижу - не получается (((((((((((((((