Удалить последний нечетный элемент массива.

[София43]

Удалить последний нечетный элемент массива.

[newerow1989]

var p:array of integer;
    i,k,len:integer;
begin
   Randomize;
   len:=5+Random(10);
   SetLength(p,len);
   k:=-1;//если все числа четные
   For i:=0 to len-1 do
   begin
      p[i]:=Random(21);
      Write(p[i]:3,'  ');
      If p[i] mod 2=1 then
         k:=i;
   end;
   Writeln;
   Writeln;
   If k>=0 then
   begin
      For i:=k to len-2 do
         p[i]:=p[i+1];
      Dec(len);
      SetLength(p,len);
   end;
   For i:=Low(p) to High(p) do
      Write(p[i]:3,'  ');
   Writeln;
   Readln;
end.