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

Array119. Дан целочисленный массив размера $$N$$. Преобразовать массив, увеличив каждую его серию на один элемент.

Решение:

program Array119;
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;

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

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

  a:=b;

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

program Array119;

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;

k:=1;

b[k]:=a[1];

for i:=2 to N do

begin

inc(k);

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

begin

b[k]:=b[k-1];

inc(k);

end;

b[k]:=a[i];

end;

inc(k);

b[k]:=b[k-1];

a:=b;

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

end.

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

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

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

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

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

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