Владиславович
7 год назад
Упорядочить массив A, сформированный с помощью датчика случайных чисел на интервале [-34, 33] по убыванию.
ОТВЕТЫ
Кир
Jul 16, 2019
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),-34,33); a.Println;
Sort(a,(x,y)-gt;xgt;=y); a.Println
end.
Пример
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),-34,33); a.Println;
Sort(a,(x,y)-gt;xgt;=y); a.Println
end.
Пример
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26
60
