Комментарии 1

• program Array117;//fpc var a: array[1..20] of integer; n, i, j: integer; begin n := 10; Randomize; for i := 1 to n do begin a[i] := Random(2) + 1; Write(a[i], ' '); end; Writeln;//1 2 2 2 1 1 1 1 2 2 j := n; while j > 0 do begin if (j = 1) or (a[j] <> a[j - 1]) then begin for i := n + 1 downto j + 1 do a[i] := a[i - 1]; a[j] := 0; n += 1 end; j -= 1 end; for i := 1 to n do Write(a[i], ' ')//0 1 0 2 2 2 0 1 1 1 1 0 2 2 Readln; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

  program Array117;//fpc   var   a: array[1..20] of integer;   n, i, j: integer;   begin   n := 10;   Randomize;      for i := 1 to n do begin a[i] := Random(2) + 1; Write(a[i], ' '); end;   Writeln;//1 2 2 2 1 1 1 1 2 2      j := n;      while j > 0 do   begin     if (j = 1) or (a[j] <> a[j - 1]) then     begin       for i := n + 1 downto j + 1 do         a[i] := a[i - 1];       a[j] := 0;       n += 1     end;     j -= 1   end;      for i := 1 to n do Write(a[i], ' ')//0 1 0 2 2 2 0 1 1 1 1 0 2 2   Readln; end.

  program Array117;//pabc.net begin var n := 10; var a := Lst(SeqRandom(n, 1, 2)); a.Println;//1 1 1 1 2 2 2 1 2 2 a.Insert(0, 0); n += 1; var j := 2; while j <= n - 1 do begin if a[j] <> a[j - 1] then begin a.Insert(j, 0); j += 1; n += 1 end; j += 1 end; a.Println;//0 1 1 1 1 0 2 2 2 0 1 0 2 2 end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  program Array117;//pabc.net   begin   var n := 10;   var a := Lst(SeqRandom(n, 1, 2)); a.Println;//1 1 1 1 2 2 2 1 2 2      a.Insert(0, 0);   n += 1;      var j := 2;      while j <= n - 1 do   begin     if a[j] <> a[j - 1] then     begin       a.Insert(j, 0);       j += 1;       n += 1     end;     j += 1   end;      a.Println;//0 1 1 1 1 0 2 2 2 0 1 0 2 2 end.

  Ответить