Вариант №4 1. Опишите каждый фрагмент программы на естественном языке: a) Var D: array[1..9] of integer; b) for i:=1 to 9 do D[i]:=random(12)-3; c) for i:=1 to 9 do write (CDr, i, j=", D[i]);); d) for i:=1 to 9 do if D[i] mod 3 =0 then s:=s+D[i]; e) for i:=1 to 5 do if D[i]<>0 then k:=k+1;

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

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.