Developing.ru

Код: Выделить всё

TYPE
	LINK=^ELEM;
	ELEM=RECORD
	     INF: integer;
	     NEXT:LINK
	 END;
VAR
	    F,T,qwe,P:LINK;
	    max,I,N:INTEGER;
	BEGIN
	   WRITELN('ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ СПИСКА');
	   READLN(N);
	   WRITELN('ВВЕДИТЕ ЭЛЕМЕНТЫ СПИСКА');
	   NEW(F);

	   READLN(F^.INF);

	   P:=F;
	     FOR I:=2 TO N DO
		BEGIN
		  NEW(T);
		  READLN(T^.INF);
      P^.NEXT:=T;
		  P:=T
		END;
		 T^.NEXT:=NIL;
     T:=F;
     max:=f^.inf;
		 while T<>NIL do
    BEGIN
      if T^.inf>max then
      max:=t^.inf;
      t:=t^.next;
    end;
    writeln('max=',max);

    t:=f;
    for i:=2 to 6 do
    t:=t^.next;
    
    //writeln('6i=',t^.inf);
    new(qwe);
    qwe^.next:=t^.next;
    qwe^.inf:=max;
    t^.next:=qwe;
    //writeln(t^.inf);

	  writeln('получен список');
    T:=F;
	  while t<>nil do
	  begin
	  write(t^.inf:4);
	  t:=t^.next;
	  end;
	  writeln;
  end.