Помогите пожалуйста !!!!!!!! ужас не могу разобраться

21.05.2008, 22:24. **Показов** 1151. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Большие, большие проблемы а времени в обрез помогите кто чем может...
1) Описать процедуру, которая в списке L заменяет первое вхождение списка L1 (если есть такое) на список L2
2) Дана последовательность из не менее чем 2-х различных натуральных чисел, за которой следует 0. Напечатать в обратном порядке все числа между наибольшими и наименьшими числами этой последовательности.
3) Если в дереве встречается хотя бы четыре не кратных 5 элемента, то уменьшить нечетные элементы дерева в двое.
По 1) как оформить - идея такая

Pascal

 while l<>nil do begin
           r:=l; b:=true;
           if l^.info=l1^.info then begin l:=l^.next;
           l1:=l1^.next;
           end;
           else begin l:=l^.next; b:=false;
           if b=true then begin
           p:=r;
           p^.info:=l2^.info; p:=p^.next;
           l2:=l2^.next;
           end;

По 2) думка такая но опять же не могу оформить и заставить чтоб работала

Pascal

         min:=h^.info; max:=h^.info;
         pmin:=h; pmax:=h;
         whiule p<>h do begin
         if q^.info> max then max:=q^.info;
         pmax:=q;
         end;
        { для минимуна аналогично}
         p=pmax;
         while p<>pmin do begin
         writeln(p^.info);
         p:=p^.prev;
end.

3) нет мыслей

	21.05.2008, 22:24