Question

Помогите, пожалуйста

Если что, это паскаль

Answer 1

begin

 var n := 20;

 var a := ArrRandom(n, -10, 10);

 a.Println;

 var b := new List<integer>;

 var c := new List<integer>;

 var d := new List<integer>;

 for var i := 0 to n - 1 do

   if a[i] <= -2 then

     b.Add(a[i])

   else if a[i] > 2 then

     c.Add(a[i])

   else if Abs(a[i]) < 2 then

     d.Add(a[i])

 b.Println;

 c.Println;

 d.Println;

end.