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

[asu2006]

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

[volvo]

Как вариант:

const
  n_max = 15;

var
  arr, res: array[1 .. n_max] of integer;
  my_set: set of byte;
  n, T, 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
    T := arr[i]; my_set := [];
    while T > 0 do begin
      include(my_set, T mod 10);
      T := T div 10;
    end;
    if not (C in my_set) then begin { <--- Исправлено }
      inc(size); res[size] := arr[i];
    end;
  end;

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

Сообщение отредактировано: volvo - 3.12.2007 20:14