Охотник Владимир Фёдорович всегда берет с собой на охоту собаку Дружка, который загоняет для него зверя. В декабре собака добыла 5 зайцев и 1 волка, в январе — 8 зайцев, 2 волков и 2 лис, в феврале — 1 лису, 6 зайцев и 2 волков, в марте — 4 волков, 3 лис и 5 зайцев. Построй график, показывающий изменения в добыче лис в течение 4 месяцев.8.png10.png4.png​

вот не забудь нажать Объяснение:

var

   arr : Array[1..100] Of ShortInt;

   temp : ShortInt;

   i, j, n : Byte;

begin

   Write('n='); ReadLn(n);

   Randomize;

   for i := 1 to n do

   begin

       arr[i] := Random(11) - 5;

       Write(arr[i], ' ');

   end;

   WriteLn; WriteLn;

   for i := 2 to n do

       for j := n downto i do

           if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))

           then

           begin

               temp := arr[j - 1];

               arr[j - 1] := arr[j];

               arr[j] := temp;

           end;

   for i := 1 to n do

       Write(arr[i], ' ');

end.