В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
mictermixa1
mictermixa1
22.08.2020 23:07 •  Информатика

Pascalabcnet : ввести и упорядочить последовательность из n натуральных чисел таким об-разом, чтобы она возрастала до середины, а затем убывала.

Показать ответ
Ответ:
кисуня208
кисуня208
08.10.2020 08:05
// PascalABC.NET 3.3

begin
  var n:=ReadInteger;
  var a:=ArrRandom(n,10,90); a.Println;
  a:=a[0:n div 2].Sorted.ToArray+a[n div 2:n].SortedDescending.ToArray;
  a.Println;
end.

Пример:
10
82 83 53 79 31 34 24 66 47 44
31 53 79 82 83 66 47 44 34 24
0,0(0 оценок)
Ответ:
linnik4Platon
linnik4Platon
08.10.2020 08:05
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,60); a.Println;
  (a[:n div 2].OrderBy(t->t)+a[n div 2:].OrderByDescending(t->t)).Println
end.

Пример
n= 10
53 -39 49 22 -18 40 -40 -9 -16 0
-39 -18 22 49 53 40 0 -9 -16 -40
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота