Автор: Bronislav

Bronislav — Sun, 19 Aug 2018 10:14:27 +0000

program Array120;//fp

var
  a: array[1..10] 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;//2 2 1 1 2 2 2 2 1 1 
  
  i := n;
  while i >= 1 do
  begin
    if (i = 1) or (a[i] <> a[i - 1]) then
    begin
      for j := i to n - 1 do
        a[j] := a[j + 1];
      n -= 1
    end;
    i -= 1
  end;
  
  for i := 1 to n do Write(a[i], ' ');//2 1 2 2 2 1
  Readln
end.

program Array120;//fp

var

a: array[1..10] 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;//2 2 1 1 2 2 2 2 1 1

i := n;

while i >= 1 do

begin

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

begin

for j := i to n - 1 do

a[j] := a[j + 1];

n -= 1

end;

i -= 1

end;

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

Readln

end.

program Array120;//pabc.net

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

program Array120;//pabc.net

begin

var n := 10;

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

var i := n - 1;

while i >= 0 do

begin

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

begin

a.RemoveAt(i);

n -= 1

end;

i -= 1

end;

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

end.

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

Автор: Bronislav