Задание с массивами:)

[neomax38]

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
vector = array [1..100] of real;
VAR
t,b : vector;
N,i: integer; { N tecushya dlinna massiva 1 do 12 }
BEGIN

{Ввод массива}

Repeat
Write (' vvedite chislo elmentov N ot 1 do 12 ');
Readln (N);
until (N>=1) and (N<= 12);
Writeln('v massive ', N ,' elemntov');
for i:=1 to n do
begin
write('T[', i,'] ='); ReadLn(T[i]);
end;
WriteLn ('konec vvoda');
readln;

{вывод массива}

writeln(' massiv T[i] ');
for i:=1 to n do
write(t[i]:4:0);
writeln;
readln;

 { TODO -oUser -cConsole Main : Insert code here }
end.

[GetMax]

Предлагаю такой вариант

Type
  TVektor=array[1..10] of Integer;
Var
  Vekt,Vk:Tvektor;
  i,j,N,k,N1:Byte;
  C:char;
  a:Integer;
  St:String[5];
  flag:Boolean;
Begin
Readln(C);
  j:=0;
  i:=1;
  N1:=0;
  While i <= N do
  Begin
    Str(Vekt[i],St);
    Flag:=True;
    For k:=1 to Length(st) do
    If St[k] = C then
    Begin
      Flag:=False;
      Break
    End;
    If Flag then
    Begin
      Inc(N1);
      Inc(j);
      Val(St,Vekt[i],a);
      Vk[j]:=Vekt[i];
    End;
    Inc(i)
  End;
    For i:=1 to N1 do Write(Vk[i]:3);
  Readln
End.

[neomax38]

сделал проще

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
vector = array [1..100] of integer;
VAR
T1,b: vector;
t,i,j,c,n: integer; { t текущая длина массива от 1 до 12 }
BEGIN
{ 1. ВВОД МАССИВА }
Repeat
Write (' Vvedite chislo elementov  T ot 1 do 15 ');
Readln (t);
until (t>=1) and (t<= 15);
write('vvedite chislo c= '); Readln (c);
Writeln('v massive ', t,' elementov');
for i:=1 to t do
begin
write('T1[', i,'] ='); ReadLn(T1[i]);
end;
WriteLn ('konec vvoda');
readln;
j:=0;
for i:=1 to t do
begin
if ((T1[i]-C) mod 10 )<> 0 then
begin
j:=j+1;
B[j]:=T1[i];
end;
end;
n:=j;

{ 2. ВЫВОД МАССИВА на ЭКРАН }
writeln(' Massiv T1[',t,'] ');
for i:=1 to t do
write(T1[i]:10);
writeln;
if n=0 then
write ('elementov net')
else
writeln(' Massiv B[',n,'] ');
for j:=1 to n do
write(B[j]:10);
writeln;
readln;


  { TODO -oUser -cConsole Main : Insert code here }
end.