Удаление элементов из массива 1мерного. Опции

[Fraddy]

ЗЫ я знаю что это решалось.. но мне надо именно доделать (переделать) эту.. А именно удалить элементы а не скрыть..:

Program lab1;
uses crt;
var
A:array[0..100] of integer;
k,s,count,i,j:integer;
Begin
clrScr;
write('count=');
readln(count);
for i:=1 to count do
begin
    write('A[',i,']=');
     readln(A[i]);
end;
writeln('Уник. элементы удалены');
for i:=1 to count do
begin
    s:=0;
    for j:=1 to count do
    if A[i]=A[j] then
    s:=s+1;
    if s<=1 then
    begin
        writeln('A[',i,']=',A[i]);
    end;
    readkey;
end;
End.

Сообщение отредактировано: Fraddy - 21.11.2007 0:06

[Fraddy]

Надо удалить не повторяющиеся элементы! ну типа есть 3 4 5 3 6 4
должно стать 3 4 3 4

Сообщение отредактировано: Fraddy - 26.11.2007 16:14

[Гость]

Вот так подойдет?

uses crt;
var
    A:array[0..100] of integer;
    Ai,k,count,i,j:integer;
Begin
    clrScr;
    write('count=');
    readln(count);
    for i:=1 to count do
    begin
        write('A[',i,']=');
        readln(A[i]);
    end;
    for i:=1 to count do begin
        Ai:=A[i];
        for j:=count downto 1 do if Ai=A[j] then begin
            for k:=j+1 to count do A[k-1]:=A[k];
            Dec(count)
        end;
    end;
    writeln('Уник. элементы удалены');
    WriteLn('Осталось ',count,' элементов:');
    for i:=1 to count do WriteLn('A[',i,']=');
    readkey;
End.

Код не проверял, извини - проверь ошибки сам