dobra ... troche poczytalem i cos utworzylem ...:
program SortowanieBabelkowe;
uses crt;
const
M = 10;
N = 10;
var
tab : array[1..M, 1..N] of integer;
var
i, j: integer;
k, x: integer;
begin
clrscr;
writeln('Tablica przed sortowaniem: ');
randomize;
for i := 1 to M do
begin
for j := 1 to N do
begin
tab[i, j] := random(100);
write(tab[i, j], ' ');
end;
end;
writeln;
for k := 1 to M do
for i := 1 to N do
for j := 1 to i-N do
if tab[k, j] < tab[k, j+1] then
begin
x := tab[k, j+1];
tab[k, j+1] := tab[k, j];
tab[k, j] := x;
end;
writeln;
writeln('Tablica po sortowaniu: ');
for i := 1 to M do
begin
for j := 1 to N do
begin
tab[i, j] := random(100);
write(tab[i, j], ' ');
end;
end;
writeln;
end.
niestety to nie do konca dziala ....
czemu ??
Pozdrawiam i dzieki za pomoc