Cдвиги в массиве Опции

[keeply]

Помогите плиз!
Задача:описать процедуру, дублирующую в целочисленном массиве А размера N элементы равные числу X. Вывести размер и содержимое полученного массива.

Например: 5 6 8 9 продублировать 6
рез-тат: 5 6 6 8 9

[volvo]

Как вариант (если только не отрабатывается тема "циклы") :

while i<=n do begin
  if a[i]=x then begin
    inc(n); 
    move(a[i], a[i+1], (n - i)*sizeof(Telem)); { <-- Должно быть быстрее }
    inc(i);
  end;
  inc(i);
end;

[Guest]

Volvo, Altair, :D спасибо огромное!!