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

Ответы 2

  • // PascalABC.NET 3.3begin  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.Пример:1082 83 53 79 31 34 24 66 47 4431 53 79 82 83 66 47 44 34 24
  • 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)).Printlnend.Примерn= 1053 -39 49 22 -18 40 -40 -9 -16 0-39 -18 22 49 53 40 0 -9 -16 -40
    • Автор:

      liviab5g7
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years