Автор: Bronislav

Bronislav — Fri, 12 Oct 2018 08:45:32 +0000

procedure RemoveX(var a: IntArr; var n: integer; x: integer);
begin
  var i := n;
  while i >= 1 do
  begin
    if a[i] = x then
    begin
      for var j := i to n - 1 do
        a[j] := a[j + 1];
      n -= 1;
    end;
    i -= 1
  end
end;

procedure RemoveX(var a: IntArr; var n: integer; x: integer);

begin

var i := n;

while i >= 1 do

begin

if a[i] = x then

begin

for var j := i to n - 1 do

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

n -= 1;

end;

i -= 1

end

end;

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

Автор: Bronislav