Valeria Silver

const n=15;

var x:array [1..n] of integer;
    i,j,k,temp:integer;

Begin
Writeln('Исходный массив:');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    end;
Writeln;

K:=N;
i:=1;
While i < k do
      Begin
      Inc(i);
      Temp:=Abs(X[i]);
      While Temp > 9 do Temp:=Temp div 10; {Определим первую цифру}
      if not Odd(Temp) then
                           Begin
                           for j:=i to k-1 do X[j]:=X[j+1];
                           Dec(K);
                           Dec(i);
                           end;
      end;

Writeln('Измененный массив:');
for i:=1 to k do Write(X[i]:4);
Readln;
end.