Question

ПАСКАЛЬ. Создать двумерный массив, ввести с клавиатуры значения и отсортировать их в порядке возрастания

Answer 1

Ответ:

const n=5;

procedure Swap(var a,b:integer);

var tmp:integer;

begin

tmp:=a;

a:=b;

b:=tmp;

end;

var a:array[0..n-1,0..n-1] of integer;

   i,j,k:byte;

   x:integer;

begin

writeln('Исходная матрица:');

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

  begin

   read(a[i][j]);

  end;

end;

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

  begin

   write(a[i,j]:3);

  end;

 writeln;

end;

//сортировка всей матрицы по возрастанию

for i:=0 to n*n-2 do

for j:=i+1 to n*n-1 do

if a[i div n,i mod n]>a[j div n,j mod n]

then Swap(a[i div n,i mod n],a[j div n,j mod n]);

writeln('Отсортированная матрица по возрастанию');

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

 write(a[i,j]:3);

 writeln;

end;

end.

// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk

Объяснение:

Answer 2

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

program Sort2DArray;

const
  ROWS = 3; // количество строк в массиве
  COLS = 3; // количество столбцов в массиве

var
  arr: array[1..ROWS, 1..COLS] of Integer; // объявление двумерного массива
  i, j, k, temp: Integer;

begin
  // ввод значений массива с клавиатуры
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      Write('Введите значение для элемента [', i, '][', j, ']: ');
      Readln(arr[i, j]);
    end;
  end;

// сортировка значений массива в порядке возрастания
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      for k := j + 1 to COLS do
      begin
        if arr[i, j] > arr[i, k] then
        begin
          temp := arr[i, j];
          arr[i, j] := arr[i, k];
          arr[i, k] := temp;
        end;
      end;
    end;
  end;

// вывод отсортированного массива
  Writeln('Отсортированный массив:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      Write(arr[i, j], ' ');
    end;
    Writeln;
  end;

Readln;
end.

В этом примере программа создает двумерный массив размером 3x3 и запрашивает у пользователя ввод значений для каждого элемента массива. Затем значения сортируются в порядке возрастания для каждой строки массива. Наконец, отсортированный массив выводится на экран.

Например, если пользователь введет значения 5, 2, 7, 1, 4, 3, 9, 6, 8, то программа выведет:

Отсортированный массив:
1 2 3
4 5 6
7 8 9

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