[ART]

Вот в чем дело (работаю в console):

Создаю тип: type Num=array of integer;

Потом описываю пару переменных: n1, n2, n3 :Num;

Пишу рекурсивную процедуру, например:
procedure Recurs(ClonN1:num; 'еще переменные');
begin
ClonN1['переменная']:=1;
...........
Recurs(ClonN1, 'еще переменные');
..........
end;

После чего вызываю процедуру в главном блоке:
begin
Recurs(n1, 'еще переменные');
end.

Так вот все значания ClonN1 присваиваются всем переменным типа num.
Че за фигня? Хотя, если работать не console, то все ништяк. Это глюк при установке или в самом Delphi?

[Decoding]

У меня все нормально… Приведи код полностью…

Код:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Num = array of integer;
 
var
  n1, n2, n3: Num;
  i: integer;
 
procedure Recurs(ClonN1:num; i: integer);
begin
   ClonN1[i] := i;
   if i < High( ClonN1 ) then
      Recurs( ClonN1, i+1 );
end;
 
begin
   SetLength( n1, 10 );
   SetLength( n2, 10 );
   SetLength( n3, 10 );
   Recurs( n1, 0 );
   for i := Low( n1 ) to High( n1 ) do
      Write( IntToStr( n1[i] ), '  ' );
   Writeln;
   for i := Low( n2 ) to High( n2 ) do
      Write( IntToStr( n2[i] ), '  ' );
   Writeln;
   for i := Low( n3 ) to High( n3 ) do
      Write( IntToStr( n3[i] ), '  ' );
   Readln;
end.

[ART]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,Dialogs;

//Пример файла Summer.in
//4
//0 1 0 1
//0 0 1 0
//1 0 0 0
//0 1 1 0

type Num=array of integer;
type form=array of array of byte;

var
n,s,j:integer;
people:form;
number,endnum,view:num;

procedure Init;
var
x,y:integer;
begin
s:=0;
Assign(input,'summer.in');
Reset(input);
Readln(n);
SetLength(People,n,n);
SetLength(Number,n);
SetLength(View,n);
For y:=0 to n-1 do begin
view[y]:=0;
For x:=0 to n-1 do begin
Read(People[x,y]);
end;
end;
endnum:=number;
close(input);
end;

procedure SaveResult;
var
i:integer;
begin
Assign(output,'summer.out');
Rewrite(output);
for i:=0 to n-1 do begin
write(endnum[i]+1,' ');
end;
close(output);
end;


procedure Solve(ClonNum:Num; ClonView:Num; p,l:integer);
var
i:integer;
begin
ClonNum[l]:=p;
ClonView[p]:=1;
l:=l+1;
for i:=0 to n-1 do begin
if (ClonView[i]=0) and (People[i,p]=1) then begin
Solve(ClonNum, ClonView,i,l);
end;
end;
if s<l then begin
s:=l;
EndNum:=ClonNum; //У меня здесь даже можно и не присваивать
end;
end;

var
k:integer;
begin
Init;
for j:=0 to n-1 do begin
Solve(number,View,j,0);
//Почему то number и view остаются не постоянными
end;
SaveResult;
end.

[Decoding]

1) Нифига не понял что делает программа…
2)

Solve(number,View,j,0);
//Почему то number и view остаются не постоянными

Потому что в процедуре Solve ты делаешь
ClonNum[l]:=p; // ClonNum:Num = @number
ClonView[p]:=1; // ClonView:Num = @view
3)

EndNum:=ClonNum; //У меня здесь даже можно и не присваивать

Естественно! В процедуре Init ты делаешь endnum:=number; Т.к. твои массивы динамические, то этим действием ты копируешь в EndNum указатель (ссылку) на ClonNum. То есть и EndNum и ClonNum указывают на одну область памяти…

[ART]

Вообще это задача, там надо составить список из учеников максимальной длины:
//-------Формат входного файла---------------------
В первой строке входного файла содержится единственное число N (3 ≤ N ≤ 300) - количество учеников в классе. В следующих N строках идет описание класса. В (i+1)-ой строке записано N нолей или единиц. Ноль на j-й позиции означает, что ученик с номером i не знает адрес ученика с номером j, единица означает, что знает. Считается, что сам ученик не знает своего собственного адреса. Гарантируется, что для любых двух различных учеников ровно один из них знает адрес другого
//----------------------------------------------------

А как тады передавать массивы - типы этой процедуре?

[Decoding]

Попробуй в Init и Solve заменить
EndNum:=ClonNum
на
EndNum:=Copy(ClonNum)

и можно еще изменить
procedure Solve(ClonNum:Num; ClonView:Num; p,l:integer);
на
procedure Solve(const ClonNum:Num; const ClonView:Num; p,l:integer);

[ART]

Вот измененный код (пробавал const - не помогает):

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,Dialogs;

type v=array of boolean;
type list=array of integer;


var
People:array of array of byte;
NNum:List;
View:v;
Num:list;
n,s:integer;

procedure Init;
var
x,y:integer;
begin
s:=0;
Assign(input,'summer.in');
Reset(input);
Readln(n);
SetLength(People,n,n);
SetLength(Num,n); SetLength(NNum,n);
SetLength(View,n);
For y:=0 to n-1 do begin
Num[y]:=0; View[y]:=false; NNum[y]:=0;
For x:=0 to n-1 do begin
Read(People[x,y]);
end;
end;
close(input);
end;

procedure SaveResult;
var
i:integer;
begin
Assign(output,'summer.out');
Rewrite(output);
for i:=0 to n-1 do begin
write(NNum[i]+1,' ');
end;
close(output);
end;

procedure Solve(ClonNum:List; ClonView:v; p,len:integer);
var
i,k:integer;
begin
ClonNum[len]:=p;
ClonView[p]:=true;
len:=len+1;
for i:=0 to n-1 do begin
if (ClonView[i]=false) and (People[i,p]=1) then begin
Solve(ClonNum,ClonView,i,len);
end;
end;
if s<len then begin
s:=len;
NNum:=Copy(ClonNum);
end;
end;

var
j,k:integer;
begin
Init;
for j:=0 to n-1 do begin
for k:=0 to n-1 do begin
num[k]:=0; view[k]:=false; //Приходится обнулять
end;
Solve(Num,View,j,0);
end;
SaveResult;
end.

[Decoding]

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,Dialogs;
var
People:array of array of byte;
NNum:array of integer;
View:array of boolean;
Num:array of integer;
n,s:integer;
procedure Init;
var
x,y:integer;
begin
s:=0;
Assign(input,'c:\summer.in');
Reset(input);
Readln(n);
SetLength(People,n,n);
SetLength(Num,n); SetLength(NNum,n);
SetLength(View,n);
For y:=0 to n-1 do begin
Num[y]:=0; View[y]:=false; NNum[y]:=0;
For x:=0 to n-1 do begin
Read(People[x,y]);
end;
end;
close(input);
end;
procedure SaveResult;
var
i:integer;
begin
Assign(output,'c:\summer.out');
Rewrite(output);
for i:=0 to n-1 do begin
write(NNum[i]+1,' ');
end;
close(output);
end;
procedure Solve(ClonNum:array of integer; ClonView:array of boolean; p,len:integer);
var
i,k:integer;
begin
ClonNum[len]:=p;
ClonView[p]:=true;
len:=len+1;
for i:=0 to n-1 do begin
if (ClonView[i]=false) and (People[i,p]=1) then begin
Solve(ClonNum,ClonView,i,len);
end;
end;
if s<len then begin
s:=len;
NNum:=@ClonNum;
end;
end;
var
j,k:integer;
begin
Init;
for j:=0 to n-1 do begin
for k:=0 to n-1 do begin
num[k]:=0; view[k]:=false; //Приходится обнулять
end;
Solve(Num,View,j,0);
end;
SaveResult;
end.