Автор: Bronislav

Bronislav — Sat, 18 Aug 2018 11:24:02 +0000

program Array118;//pabc.net

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

program Array118;//pabc.net

begin

var n := 10;

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

var i := n - 1;

while i >= 1 do

begin

if a[i] <> a[i - 1] then

begin

a.Insert(i, 0);

n += 1;

end;

i -= 1

end;

a.Add(0);

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

end.

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

Автор: Bronislav