дан одномерный массив A(N) СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛИ ABC

[Esmadjin]

удалить элементы одномерного массива которые содержат только четные цифры

[newerow1989]

const n = 20;
var a: array of integer;
    i, j: integer;
begin
   Randomize;
   SetLength(a, n);
   for i:=Low(a) to High(a) do
   begin
      a[i]:=Random(21);
      Write(a[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   i:=0;
   while i<=High(a) do
   begin
      if a[i] mod 2 = 0 then
      begin
         for j:=i to High(a)-1 do
            a[j]:=a[j+1];
         SetLength(a, High(a));
         Dec(i);
      end;
      Inc(i);
   end;
   for i:=Low(a) to High(a) do
      Write(a[i]:3, '  ');
   Writeln;
   Readln;
end.

[BDA]

newerow1989, по заданию нужно проверять все цифры на четность, а не сам элемент. А еще каждый раз двигать хвост и менять длину массива достаточно накладно. Лучше так:

i := 0;
j := 0;
for i := Low(a) to High(a) do
  if check(a[i]) then
  begin
    a[j] := a[i];
    Inc(j);
  end;
SetLength(a, j);