Выполнить сортировку массива по убыванию (или по возрастанию)

@Petro29 · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

Выполнить сортировку массива по убыванию (или по возрастанию).
Как оказалось, в книге Паскаль для школьников тема сортировки вообще не затронута.
Исходный массив:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses Crt;
const n = 10;
var a: array [1..10] of integer;
          i: integer;
begin
ClrScr;
   for i:= 1 to n do begin
     a[i]:= Random(50) – 5;
      write(a[i]:3);
      end;
    readln
   end.

На выходе имеем исходный массив:

Pascal
1
-5  -4   38     5     8   28   10     3   13   16

Просьба сделать образец сортировки.

@Puporev · 13.01.2018, 20:12

Pascal
1
2
3
4
5
6
7
8
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

@Petro29 · 28.01.2018, 15:54 **[ТС]**

Была просьба сделать образец сортировки при
заданном исходном массиве.
В ответе был дан фрагмент блока сортировки:

Pascal
1
2
3
4
5
6
7
8
1.  for i:= 1 to n-1 do
2.  for j:= i+1 to n do
3.  if  a[i]  >  a[j]  then
4.  begin
5.     x:= a[i];
6.     a[i]:= a[j];
7.     a[j]:= x;
8.  end;

Исходный массив, в который вставлен блок сортировки::

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses Crt;
const n = 10;
var a: array [1..10] of integer;
          i, j, x: integer;
begin
ClrScr;
   for i:= 1 to n do begin
     a[i]:= Random(50) – 5;
      write(a[i]:3);
      end;
       writeln;
{Блок сортировки}
   for i:= 1 to n-1 do
for j:= i+1 to n do
if  a[i]  >  a[j]  then
begin
    x:= a[i];
    a[i]:= a[j];
    a[j]:= x;
end;
    readln
   end.

На выходе имеем::

Pascal
1
2
   -5  -4   38     5     8   28   10     3   13   16
5   3     8     5   28   10    8    28   10   28   13   28   16   28

Что это за результат?
Как довести этот код до ума?

@Puporev · 28.01.2018, 15:57

Сообщение от Petro29

На выходе имеем::

Интересно как это не выводя отсортированный массив получили 2 массива, при чем второй не имеет ничего общего с первым?

@bormant · 28.01.2018, 16:14

Сообщение от Petro29

Просьба сделать образец сортировки

Вот там этих образцов, изучай не хочу: Сортировки

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .