Удаление элементов из массива 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

[volvo]

типа неизвестная команда мув..

Ну, если твоему компилятору неизвестен Move - то он у тебя битый, бери другой дистрибутив и устанавливай... Вообще-то программа отработала, так что извини, но в следующий раз клевета будет наказываться минусами... Надоело мне с вами цацкаться! Это видишь - ли не работает ему, да это не так откомментировали... Ути-пути, ложечку за маму, ложечку за папу скушал, малыш?

[Fraddy]

Ну, если твоему компилятору неизвестен Move - то он у тебя битый, бери другой дистрибутив и устанавливай... Вообще-то программа отработала, так что извини, но в следующий раз клевета будет наказываться минусами... Надоело мне с вами цацкаться! Это видишь - ли не работает ему, да это не так откомментировали... Ути-пути, ложечку за маму, ложечку за папу скушал, малыш?

У меня винда ВИСТА на ней идет тока паскаль АБЦ который, мать его как оказалось, не читает мув... уж извените такая вот засада... Ну программа значит работает - за это спасибо... я проверить не могу покачто, но буду разбираться.. и странно что мув не работает.. вроде последняя версия.
Короче спасибоо