Автор: Bronislav

Bronislav — Sun, 12 Aug 2018 22:20:55 +0000

У меня в коде для fpc после 20 строки n += 1; добавить строку k += 1; а 22 строку k += 4 изменить на k += 2; Хотя и так работает.

Автор: Bronislav

Bronislav — Sun, 12 Aug 2018 21:10:04 +0000

program array_107;//pascalABC.net

begin
  var n := 10;
  var l := Lst(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  
  var k := 0;
  
  loop n div 2 do
  begin
    l.InsertRange(k, ArrFill(2, l[k]));
    k += 4
  end;
  
  l.Println;//1 1 1 2 3 3 3 4 5 5 5 6 7 7 7 8 9 9 9 0
end.

program array_107;//pascalABC.net

begin

var n := 10;

var l := Lst(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);

var k := 0;

loop n div 2 do

begin

l.InsertRange(k, ArrFill(2, l[k]));

k += 4

end;

l.Println;//1 1 1 2 3 3 3 4 5 5 5 6 7 7 7 8 9 9 9 0

end.

program array_107;//fpc

var
  a: array[1..20] of integer;
  i, j, k, n, m: integer;

begin
  n := 10;
  for i := 1 to n do a[i] := i;
  for i := 1 to n do Write(a[i], ' '); Writeln;
  
  k := 1;
  
  for i := 1 to n div 2 do
  begin
    for m := 1 to 2 do
    begin
      for j := n + 1 downto k + 1 do
        a[j] := a[j - 1];
      n += 1;
    end;
    k += 4
  end;
  
  for i := 1 to n do Write(a[i], ' ');
  Readln
end.

program array_107;//fpc

var

a: array[1..20] of integer;

i, j, k, n, m: integer;

begin

n := 10;

for i := 1 to n do a[i] := i;

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

k := 1;

for i := 1 to n div 2 do

begin

for m := 1 to 2 do

begin

for j := n + 1 downto k + 1 do

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

n += 1;

end;

k += 4

end;

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

Readln

end.

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

Автор: Bronislav

Автор: Bronislav