Показать сообщение отдельно
  #5  
Старый 11.02.2010, 08:36
kaizer131 kaizer131 вне форума
Начинающий
 
Регистрация: 01.11.2008
Сообщения: 112
Репутация: 10
По умолчанию

Так вроде поправил,
Код:
program Spisok;
{$APPTYPE CONSOLE}
uses
SysUtils;

TYPE  Link = ^Zveno;
      Zveno = record
      number:integer;
      inf : Integer;
      sled : Link;
                  End;
Var
Beg, Elem, T,T2:Link;
X:integer;
i,n:integer;
begin
Randomize;
write('Vvedi dlinnu spiska : ');
readln(n);
New(Elem);
Elem^.number:=1;
Elem^.inf:=6;
Elem^.sled:=nil;
Beg:=Elem;

for I := 2 to n do
begin
New(elem^.sled);
Elem:=elem^.sled;
Elem^.number:=i;
Elem^.inf:=random(10);
Elem^.sled:=nil;
end;
Elem:=beg; {Назначаем начальный узел}
while Elem<>nil do
begin
write ('[') ;
write (Elem^.number) ;
write ('] ') ;
write (Elem^.inf) ;
write (' --> ') ;
Elem:=Elem^.sled;
end;
writeln;
Elem:=beg; {Назначаем начальный узел}

while Elem<>nil do
begin
if (Elem^.sled <> nil) and (Elem^.inf<5) then
begin
T:=Elem;
Elem^.sled:=T^.sled;
Dispose(T);
end
else
Begin
write ('[') ;
write (Elem^.number) ;
write ('] ') ;
write (Elem^.inf) ;
write (' --> ') ;
End;
Elem:=Elem^.sled;
end;

readln;
end.

Дальше нужно реализовать проверку конца и начала списка
Ответить с цитированием