Question

Решите задачи в Паскале, пожалуйста. 1)Дан массив, отсортировать все его элементы до максимального по возрастанию. 2)Дан массив, отсортировать все его элементы от минимального по возрастанию. 2)Дан массив, отсортировать все его элементы от максимального до минимального по убыванию.

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Print('1:'); a?[:imax].OrderBy(t->t).Println;
  Print('2:'); a?[:imin].OrderBy(t->t).Println;
  Print('3:');
  if imax>imin then Swap(imax,imin);
  a?[imax+1:imin].OrderByDescending(t->t).Println
end.

Пример
n= 13
-18 42 -49 -40 -28 15 4 48 -37 23 44 27 21
1: -49 -40 -28 -18 4 15 42
2: -18 42
3: 15 4 -28 -40

Answer 2

Конечно! Вот решения встроенным алгоритмом сортировки в языке Паскаль:

1. Дан массив, отсортировать все его элементы до максимального по возрастанию:

pascalCopy code
program SortAscendingToMax;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of Integer;
  i, j, temp: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);

  // Сортировка массива по возрастанию
  for i := 1 to N-1 do
    for j := 1 to N-i do
      if arr[j] > arr[j+1] then
      begin
        temp := arr[j];
        arr[j] := arr[j+1];
        arr[j+1] := temp;
      end;

  // Вывод отсортированного массива
  for i := 1 to N do
    WriteLn(arr[i]);
end.

2. Дан массив, отсортировать все его элементы от минимального по возрастанию:

pascalCopy code
program SortAscendingToMin;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of Integer;
  i, j, temp: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);

  // Сортировка массива по возрастанию
  for i := 1 to N-1 do
    for j := 1 to N-i do
      if arr[j] > arr[j+1] then
      begin
        temp := arr[j];
        arr[j] := arr[j+1];
        arr[j+1] := temp;
      end;

  // Вывод отсортированного массива
  for i := N downto 1 do
    WriteLn(arr[i]);
end.

3. Дан массив, отсортировать все его элементы от максимального до минимального по убыванию:

pascalCopy code
program SortDescending;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of Integer;
  i, j, temp: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);

  // Сортировка массива по убыванию
  for i := 1 to N-1 do
    for j := 1 to N-i do
      if arr[j] < arr[j+1] then
      begin
        temp := arr[j];
        arr[j] := arr[j+1];
        arr[j+1] := temp;
      end;

  // Вывод отсортированного массива
  for i := 1 to N do
    WriteLn(arr[i]);
end.

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