8вариант. задан массив м, состоящий из n целочисленных элементов. упорядочить элементы таким образом, чтобы вначале располагались все положительные аргументы, а после них все отрицательные. pascal abc
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var m:=ArrRandom(ReadInteger('n='),-50,50).Println(', '); m.Where(x->x>0).Concat(m.Where(x->x<0)).Println(', ') end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ArrRandom(ReadInteger('n='),-50,50).Println(', ');
m.Where(x->x>0).Concat(m.Where(x->x<0)).Println(', ')
end.
Тестовое решение:
n= 10
24, -49, -48, -24, 0, 36, 27, 9, 43, -13
24, 36, 27, 9, 43, -49, -48, -24, -13