Напишите программу, в которой вводится массив и вызывается процедура, упорядочивающая этот массив в зависимости от указ

@makaryurkin · Регистрация: 24.04.2021

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

ВСЕМ ПРИВЕТ! паскальабс вот задали по проге задание а я пока вообще не шарю, помогите пожалуйста, буду очень рад. "Напишите программу, в которой вводится массив и вызывается процедура,
упорядочивающая этот массив в зависимости от указанного ключа по возрастанию/убыванию."

@JuriiMW · 24.04.2021, 12:13

Pascal
1
2
3
4
5
6
7
procedure order(var a:array of Integer;non_decreasing:Boolean:=True);begin if
non_decreasing then a:=a.Sorted.ToArray else a:=a.SortedDescending.ToArray;end;
begin var a:=ReadArrInteger('Ввести массив:',ReadInteger('Размер массива:'));
  'исходный массив:'.Print;a.Println;
  order(a);'сортированный по неубыванию:'.Print;a.Println;
  order(a,False);'сортированный по невозрастанию:'.Print;a.Println;
end.

@makaryurkin · 24.04.2021, 14:05 **[ТС]**

привет, спасибо тебе за ответ, но можно пожалуйста в простом виде, а то я не понимаю, я имею ввиду без вот таких слов типа non_decreasing, SortedDescending, ReadArrInteger.... это слишком "умные" слова, училка не поверит что я на такое способен

@Sun Serega · 24.04.2021, 19:10

Чтоб училка поверила - надо не брать более простой код и надеяться что не спросит, а разобраться в этом. Если объяснить что делает что - придраться будет не к чему. Особенно если сам преподаватель запутается.

Если хотите разобраться - для начала нормально отформатируйте код, как вам удобнее будет на него смотреть, JuriiMW специально делает его нечитабельным.
Далее наводите мышку на непонятные имена, у всех есть описания.
Ну, то есть кроме имён - объявленных в программе, как non_decreasing, объявление которого вы не удосужились увидеть в первой же строке.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@makaryurkin 0 / 0 / 0 Регистрация: 24.04.2021 Сообщений: 9

	Напишите программу, в которой вводится массив и вызывается процедура, упорядочивающая этот массив в зависимости от указ 24.04.2021, 10:21. Показов 991. Ответов 3 Метки массив pascal, паскаль abc.net, упорядочить массив pascal (Все метки) ВСЕМ ПРИВЕТ! паскальабс вот задали по проге задание а я пока вообще не шарю, помогите пожалуйста, буду очень рад. "Напишите программу, в которой вводится массив и вызывается процедура, упорядочивающая этот массив в зависимости от указанного ключа по возрастанию/убыванию." 0

@makaryurkin 0 / 0 / 0 Регистрация: 24.04.2021 Сообщений: 9
	24.04.2021, 14:05 [ТС]
	привет, спасибо тебе за ответ, но можно пожалуйста в простом виде, а то я не понимаю, я имею ввиду без вот таких слов типа non_decreasing, SortedDescending, ReadArrInteger.... это слишком "умные" слова, училка не поверит что я на такое способен 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	24.04.2021, 19:10
	Чтоб училка поверила - надо не брать более простой код и надеяться что не спросит, а разобраться в этом. Если объяснить что делает что - придраться будет не к чему. Особенно если сам преподаватель запутается. Если хотите разобраться - для начала нормально отформатируйте код, как вам удобнее будет на него смотреть, JuriiMW специально делает его нечитабельным. Далее наводите мышку на непонятные имена, у всех есть описания. Ну, то есть кроме имён - объявленных в программе, как `non_decreasing`, объявление которого вы не удосужились увидеть в первой же строке. 0