|
вобщем вот так до сих пор мучаюсь с этой задачей .уже написал через массив но вот беда оно мне заполняет его рендомайзными числами проверьте плз код может где напутал
procedure search(n:link;j:integer);
var i,buf :integer;
ik:boolean;
k,neo:link;
d :array[1..10] of integer;
begin
d[j]:=n^.data;
if n^.right<>nil then
begin
j:=j+1;
search(n^.right,j);
end;
if n^.left<>nil then
begin
j:=j+1;
search(n^.left,j);
end;
if (n^.left=nil) and (n^.right=nil) then
begin
for j:=1 to 10 do begin
write(d[j],' ');end;
repeat
ik:=true ;
for j:=1 to 9 do
if d[j]>d[j+1] then
begin
buf:=d[j];
d[j]:=d[j+1];
d[J+1]:=buf;
ik:=false;
end;
until ik;
end;
for j:=1 to 9 do begin
if d[j]=d[j+1] then begin
writeln ('est odinakovie elementi =',d[j]);
end;
end;
end; {search}
|