{A ver si esto te ayuda}
program arrays;
uses
crt;
const
matriz = 8;
type
matrizd = array[1..matriz] of byte;
var
reserva : matrizd;
lamatriz : array[1..matriz] of matrizd;
d, t, r : integer;
procedure rellena;
var
r1, r2 : integer;
begin
randomize;
for r1 := 1 to matriz do
for r2 := 1 to matriz do
begin
lamatriz[r1][r2] := random(2);
end;
end;
procedure ordena;
var
cont1, cont2 : integer;
begin
for t := 1 to matriz do
for r := matriz downto t + 1 do
begin
cont1 := 0;
cont2 := 0;
for d := 1 to matriz do
begin
if lamatriz[t][d] = 0 then
cont1 := cont1 + 1;
if lamatriz[r][d] = 0 then
cont2 := cont2 + 1;
end;
if cont1 > cont2 then
begin
reserva := lamatriz[t];
lamatriz[t] := lamatriz[r];
lamatriz[r] := reserva;
end;
end;
end;
begin
clrscr;
rellena;
for t := 1 to matriz do
begin
for r := 1 to matriz do
begin
write(' ',lamatriz[t][r]); end;
writeln;
end;
ordena;
writeln;
for t := 1 to matriz do
begin
for r := 1 to matriz do
begin
write(' ',lamatriz[t][r]); end;
writeln;
end;
readkey;
end.
Crear cuenta