Удалить из массива все элементы, в которых есть цифра 3 - PascalABC.NET - Ответ 4686024

program Pr4;
 
uses
  crt;
 
type
  mass = array [1..30] of integer;
 
var
  a: mass;
  o: integer;
 
procedure vvod(var x: mass; n: integer);
var
  i: integer;
begin
  Writeln('исходный массив'); 
  
  for i := 1 to n do x[i] := random(-10, 40);
end;
 
procedure vivod(var x: mass; n: integer);
var
  i: integer;
begin
  for i := 1 to n do write(x[i]:5);
end;
 
procedure del(var n: integer; var d: mass);
var
  i, j: integer;
begin
  writeln('массив с удаленными из него элементами, в которых есть цифра 3');
  i := 1;
  while i <= n do
  begin
    if(Abs (d[i]) mod 10 = 3) or (Abs(d[i]) div 10 = 3) then
    begin
      for j := i to n - 1 do
        d[j] := d[j + 1];
      n -= 1;
    end
    else i += 1;
  end;
end;
 
procedure InK(var n: integer; var a: mass);
var
  k: integer;
begin
  write('Введите число: ');
  readln(k);
  writeln('массив, где вставлено число ', k, ' после всех элементов, кратных своему номеру');
  var i := 1;
  while i <= n do
  begin
    if a[i] mod i = 0 then begin
      Inc(n);
      Inc(i);
      for var j := n downto i + 1 do
        a[j] := a[j - 1];
      a[i] := k;
    end;
    Inc(i);
  end
end;
 
procedure obmen(var a: mass; n: integer);
var
  pp, po, k, i: integer;
begin
  writeln('массив где последний положительный и первый отрицательный элементы поменяты местами');
  pp := 0;
  for i := 1 to n do
    if a[i] > 0 then pp := i;
  po := 0;
  for i := n downto 1 do
    if a[i] < 0 then po := i;
  k := a[pp];a[pp] := a[po];a[po] := k;
end;
 
begin
  clrscr;
  o := 15;
  vvod(a, o);
  vivod(a, o);
  writeln;
  del(o, a);
  vivod(a, o);
  writeln;
  InK(o, a);
  vivod(a, o);
  writeln;
  obmen(a, o);
  vivod(a, o);
  readln;
end.