Автор: Bronislav

Bronislav — Sat, 18 Aug 2018 11:42:31 +0000

program Array119;//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 2 2 2 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];
      n += 1
    end;
    j -= 1
  end;
  
  for i := 1 to n do Write(a[i], ' ');//1 1 2 2 2 2 1 1 2 2 2 2 2 2
  Readln;
end.

program Array119;//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 2 2 2 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];

n += 1

end;

j -= 1

end;

for i := 1 to n do Write(a[i], ' ');//1 1 2 2 2 2 1 1 2 2 2 2 2 2

Readln;

end.

program Array119;//pabc.net

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

program Array119;//pabc.net

begin

var n := 10;

var a := Lst(SeqRandom(n, 1, 2)); a.Println;//1 2 2 1 1 2 2 2 2 2

var i := n-1;

while i >= 0 do

begin

if (i = 0) or (a[i] <> a[i - 1]) then

begin

a.Insert(i, a[i]);

n += 1;

end;

i -= 1;

end;

a.Println;//1 1 2 2 2 1 1 1 2 2 2 2 2 2

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array119

Автор: Bronislav