new_el^.next: =nil; if start=nil thenstart: =new_el; else begin
last: =start;
while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');
del2(start);
new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.
Популярные вопросы