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

[asu2006]

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

[klem4]

эм ... что-то такое:

uses crt;

const
  MAX_N = 15;

type
  TArray = array [1..MAX_N] of Integer;

procedure Input(var arr: TArray; const n: Integer);
var
  i: Integer;
begin
  for i := 1 to n do begin
    write('arr[', i, '] = '); readln(arr[i]);
  end;
end;

procedure Print(const arr: TArray; const n: Integer);
var
  i: Integer;
begin
  if n = 0 then 
    writeln('empty ...');
  writeln;
  for i := 1 to n do write(arr[i]:4);
end;

function IncludeValue(const source, value: Integer): Boolean;
var
  _source: Integer;
begin
  if source = 0 then IncludeValue := value = 0 else begin
    _source := source;

    while (_source > 0) and ((_source mod 10) <> value) do
      _source := _source div 10;

    IncludeValue := _source > 0;
  end;
end;

procedure CreateNewArray(const arr: TArray; var new_arr: TArray;
 const n: Integer; var m: Integer; const value: Integer);
var
  i: Integer;
begin
  m := 0;
  for i := 1 to n do
   if not IncludeValue(arr[i], value) then begin
     inc(m);
     new_arr[m] := arr[i];
   end;
end;


var
  t, d: TArray;
  n, m, c: Integer;

begin
  clrscr;

  write('n = '); readln(n);
  write('c = '); readln©;

  Input(t, n);

  CreateNewArray(t, d, n, m, c);

  Print(d, m);

  readln;
end.