Николай 28 ноября 2019 в 09:06
Помогите, пожалуйста, составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
Помогите, пожалуйста, составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger(n=);
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
begin
var n:=ReadInteger(n=);
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
Компьютеры и вычисления
270
0
Для комментирования необходимо зарегистрироваться на сайте