[flips]

Как записать условие для удаления повотряющихся и как удалить повторяющиеся все элементы.
Вот мой код для этой подпрограммы, что нужно исправить/дописать?

Код:

procedure DelEvenElement(var a:TArray100;var cnt:integer);
 var i,j:integer;
begin
{i:=1;
 while i<=cnt do
  begin}
  for i:=cnt downto 1 do
   if a[i]=a[i+1] then
    begin
     for j:=i to cnt do
      a[j]:=a[j+1];
      cnt:=cnt-1;
    {end
   else
    i:=i+1;}
    end;
end;

[lmikle]

Код:

for i := High(a) downto Low(a)+1 do
  for j := i - 1 downto Low(a) do
    if a[i] = a[j] then 
      begin
        a[i] := 0;  // Ну или как ты там собираешься удалять.
        break;
      end;

можно еще сделать копированием - создавать новый массив, при этом вставлять в него только те элементы, которых внем еще нет.

[flips]

Ладно, а как реализовать удаление?

[flips]

Ну люди помогите, пожалуйста, очень нужно

[Страдалецъ]

Для начала скажи что это за тип TArray100 ?

[flips]

Тип массива назван для удобства.
А тип объявил так:
type
TArray100=array[1..100]of integer;