===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.
Если это КУМИР, то не хватает числа повторений.
А что такое "шея" (?) цикла - понятия не имею.
Если Д =134 то код у символа А=13 ЛОГИКА!!