Отсортировать по убыванию последние две строки матрицы - Pascal ABC

Формулировка задачи:

Cоздать двумерный массив целых чисел размерностью 7*4 и отсортировать по убыванию последние две строки. Вывести на экран исходный и и измененный массив. Можно использовать любой метод сортировки

Код к задаче: «Отсортировать по убыванию последние две строки матрицы - Pascal ABC»

textual
uses crt;
const m=7;
      n=4;
procedure swap(var x,y:integer);
var t: integer;
begin
 t := x;
 x := y;
 y := t
end;
var i,j,k: integer;
    matr:array [1..m,1..n] of integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    matr[i,j]:=random(100);
    write(matr[i,j]:4);
   end;
  writeln;
 end;
for i:=m-1 to m do
 begin
  for k:=1 to n-1 do
  for j:=1 to n-k do
  if matr[i,j]<=matr[i,j+1] then
  swap(Matr[i,j],Matr[i,j+1]);
 end;
writeln ('Преобразованная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(matr[i,j]:4);
  writeln;
 end;
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ