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

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


textual

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

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



Похожие ответы
  1. Описать процедуру SqP(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с противоположными вершинами. P.S. помогите пожалуйста это решить,заранее спасибо за помощь)

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Определите функцию, которая вычисляет и возвращает длину гипотенузы прямоугольного треугольника, две другие стороны x и y которого известны.Добавлено через 3 часа 0 минут Заранее спасибо за помощь)

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Здравствуйте, необходимо найти площадь прямоугольника по его вершинам, не могу понять в чем моя ошибка?

  1. Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Здравствуйте! Помогите решить, заранее спасибо) В возрастающем порядке напечатать целые числа из диапазона 1.. 10000, представимые в виде n2 + m2, где n, m>=0

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto