Создать стек со случайными целыми числами. Найти максимальный элемент и вставить после него 0.

[Veronika_13]

Создать стек со случайными целыми числами. Найти максимальный элемент и вставить после него 0. Паскаль АБС или Паскаль АВС.нет

[Vanta11a]

Помощь пока только в таком виде:
http://www.cyberforum.ru/pascalabc/thread360353.html

[Veronika_13]

есть программа, которая удаляет каждый нечётный элемент. Как её переделать? подскажите!!

uses crt;
Const Max = 10;
Type
Stack = ^tStack;
tStack = Record
N : Longint;
Next : Stack;
end;
Var
P1,P2 : Stack;
i,k : Longint;
fl : Boolean;

Procedure DisposSt(Var P : Stack);
Var Ptmp : Stack;
Begin
While P<>nil do
Begin
Ptmp:=P;
P:=P^.Next;
Dispose(Ptmp);
end;
end;

Procedure PushSt(Var P : Stack; A : Longint);
Var Ptmp : Stack;
Begin
New(Ptmp);
Ptmp^.N:=A;
Ptmp^.Next:=P;
P:=Ptmp;
end;

Function PopSt(Var P : Stack; Var A : Longint) : Boolean;
Var Ptmp : Stack;
Begin
If P=nil then PopSt:=False else
Begin
A:=P^.N;
Ptmp:=P;
P:=P^.Next;
Dispose(Ptmp);
PopSt:=True;
end;
end;

Begin
P1:=nil; P2:=nil;

For i:=1 to max do
Begin
k:=Random(100);
PushSt(P1,k);
Writeln(k);
end;
Writeln;
writeln('start stek:');
While P1<>nil do
Begin
fl:=PopSt(P1,k);
Writeln(k);
If fl then
If Odd(k) then PushSt(P2,k);
end;
Writeln;

While P2<>nil do
Begin
fl:=PopSt(P2,k);
If fl then PushSt(P1,k);
end;
writeln('result:');
While P1<>nil do
Begin
fl:=PopSt(P1,k);
If fl then Writeln(k);
end;

DisposSt(P1);
DisposSt(P2);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Разумнее все же разобраться и написать самому.
http://forum.sources.ru/index.php?showtopic=54278

[Veronika_13]

попыталась- не получилось. трудно мне это