4. текст в десятичном коде

1 2 3 4 5 список

условие :
8 б.
перед тобой таблица с десятеричными . зашифруй предложенное слово.

а
б
в
г
д
е
ж
з
и
й
к
л
м
н
о
п 192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207 р
с
т
у
ф
х
ц
ч
ш
щ
ъ
ы
ь
э
ю
я 208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223

день

Скрыть рекламу:Не интересуюсь этой темойТовар куплен или услуга найденаНарушает закон или спамМешает просмотру контента объявление скрыто.Обвал цен на iPhone 7256Gb!Сравнивай цены в магазинах на новый iPhone 7 256Gb. Успей купить!.ruСкрыть рекламу:Не интересуюсь этой темойТовар куплен или услуга найденаНарушает закон или спамМешает просмотру контента объявление скрыто.

Числовые данные

Вводимые числа могут быть целыми (например, 12), десятичными (45,95) или обыкновенными дробями ( 3 1/2), а также записываться в так называемом экспоненциальном представлении (1,3Е+7).

Для ввода числа в ячейку ее выделяют с мыши или клавиатуры. Набирают число, затем нажимают клавишу Enter (Ввод) или выделяют мышью другую ячейку . При вводе данные отображаются в активной ячейке и в строке формул. Табличный процессор распознает тип вводимых данных. По умолчанию числа выравниваются по правому краю ячейки.

Дробную часть числа от целой отделяют запятой или точкой, в зависимости от установок операционной системы. В русскоязычной версии Windows для отделения дробной части по умолчанию используется запятая.

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