На тему: массив рассортировать числа так,чтобы положительные - вопрос №8257685 от Kuса 15.12.2020 23:34

Question

Информатика: На тему: массив рассортировать числа так,чтобы положительные были справа, отрицательные слева.

Kuса · Answer

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
(a.Where(t->t<0)+a.Where(t->t>=0)).Println
end.

Пример
n= 20
42 -10 -32 -31 32 -42 -7 33 -22 5 -45 36 4 26 -23 -28 -13 -44 12 -12
-10 -32 -31 -42 -7 -22 -45 -23 -28 -13 -44 -12 42 32 33 5 36 4 26 12