1
« en: Viernes 6 de Julio de 2007, 18:12 »
procedure Repartir ( ordenadas:mazito; N:integer);
type
aux=array[1..2] of string;
var
i,j,aleat:integer;
auxiliar1:aux;
aux2:string;
begin
Randomize;
for j:=1 to 4 do
for i:=1 to N do
begin
aleat:=Random(N)+1;
aux2:=ordenadas[i,j];
ordenadas[i,j]:=ordenadas[aleat,j];
ordenadas[aleat,j]:=aux2;
end;
end;
aasi estaria bien un procedimiento k me intercambiase contenido de las columnas=?