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

July 2022 1 8 Report

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

Answers & Comments

petyaGavrikov

Verified answer

// 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

1 votes Thanks 0

Answers & Comments

Verified answer

Helpful Links

Helpful Social