Дан однонаправленный список L из элементов целого типа. Из каждой группы подряд идущих равных элементов оставить в списке только один.
нашла похожую задачу на удаление повторений,немного изменила,но все-равно не работает
Код: Выделить всё
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..10] of integer;
n,i,j,k:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
write('n=');readln(n);
writeln('ishodnui massiv:');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
i:=1;
while i<=n do
begin
j:=i+1;
while j<=n do
begin
if a[j]=a[j+1] then
begin
for k:=j to n-1 do
a[k]:=a[k+1];
n:=n-1;
end
else j:=j+1;
end;
i:=i+1;
end;
writeln('novui massiv:');
for i:=1 to n do
write(a[i],' ');
readln
end.