Задан вектор Опции

[asu2006]

Задан вектор T(n) n>= 15. Сформировать вектор D из тех элементов массива Т, в десятичной записи которых не встречается заданная цифра С

[klem4]

Ну раз пошла такая пьянка, вариант со строкой.

const
  n_max = 15;

var
  arr, res: array[1 .. n_max] of integer;
  tmp: String;
  n, i, size: integer;
  C: byte;

begin
  write('n = '); readln(n);
  for i := 1 to n do begin
    write('arr[', i:2, '] = ');
    readln(arr[i]);
  end;

  write('C = '); readln©;

  size := 0;
  for i := 1 to n do begin
    Str(arr[i], tmp);
    if Pos(Chr(48 + C), tmp) = 0 then begin
      inc(size); res[size] := arr[i];
    end;
  end;

  for i := 1 to size do
    write(res[i]:4);
  writeln;
end.