Решаем задачи Абрамян на Паскале. Array117

Array117. Дан целочисленный массив размера $N$ . Вставить перед каждой его серией элемент с нулевым значением.

Решение:

program Array117;
uses
  SysUtils;

var
 a,b : array [1..20] of real;
 N,i,k: integer;

begin
 Write('N: ');
 Readln(N);

 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;

 b[1]:=0;
 k:=2;
 b[k]:=a[1];

 for i:=2 to N do
  begin
   inc(k);
   if a[i-1]<>a[i] then
    begin
     b[k]:=0;
     inc(k);
    end;
   b[k]:=a[i];
  end;

  a:=b;

 for i:=1 to k do writeln(a[i]);
end.

program Array117;

uses

SysUtils;

var

a,b : array [1..20] of real;

N,i,k: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

b[1]:=0;

k:=2;

b[k]:=a[1];

for i:=2 to N do

begin

inc(k);

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

begin

b[k]:=0;

inc(k);

end;

b[k]:=a[i];

end;

a:=b;

for i:=1 to k do writeln(a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 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.

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.

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.

Ответить

Решаем задачи Абрамян на Паскале. Array117

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

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

Добавить комментарий Отменить ответ