VladimirovichKazakova1202
?>
Ребята Нужно описание команд для этой программы.Program L;vararr : Array[1..100] Of Shortint;temp : Shortint;i, j, n : Byte;beginWrite('n='); ReadLn(n);Randomize;for i := 1 to n dobeginarr[i] := Random(11) - 5;Write(arr[i], ' ');end;WriteLn; WriteLn;for i := 2 to n dofor j := n downto i doif (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))thenbegintemp := arr[j - 1];arr[j - 1] := arr[j];arr[j] := temp;end;for i := 1 to n doWrite(arr[i], ' ');end.
Ответы