Сортировка масива методом обмена с флажком паскаль

[маргарита123]

а без допмассива никак нельзя?

[min@y™]

Это очень плохо.

[Stilet]

Если педагоги не могут научить друг друга, то как они будут учить наших детей?
Не знаю. Вот с потолка в качестве идеи:

program Project1;
const n=5;m=5;
var a:array[1..n,1..m] of integer;
  l,k,i,j:integer;
  dir:boolean;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100);write(a[i,j]:5);
    end; writeln;
  end;
  dir:=true;
  for i:=1 to n do begin
    if dir then begin
      for j:=1 to m do for k:=1 to m do
        if a[i,j]<a[i,k] then begin l:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=l; end;
    end else
     for j:=m downto 1 do for k:=m downto 1 do
       if a[i,j]<a[i,k] then begin l:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=l; end;
    dir:= not dir;
  end;
  writeln;
  for i:=1 to n do begin
    for j:=1 to m do begin
      write(a[i,j]:5);
    end; writeln;
  end;
  readln;
end.

[маргарита123]

как реализовать змейку?

uses crt;
var i,j,k,l,m,n,x,p,max:integer;
A:array [1..100,1..100] of integer;
flag : boolean;
procedure swap (var a,b:integer);
var t:integer;
begin
t:=a;
a:=b;
b:=t;
end;

function ceil(a:real):integer;
begin
if a-trunc(a)=0 then ceil:=trunc(a) else ceil:=trunc(a)+1;
end;

begin
clrscr;
write ('Input n= ');
readln (n);
write ('Input m=');
readln (m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(20);
write(A[i,j]:4);
end;
writeln;
end;
writeln;
p:=n*m;
flag:=false;
while (p>1) do
begin
i:=1; j:=1; k:=1; l:=1; max:=A[1,1];
begin
for x:=1 to p do
repeat
begin
j:=ceil(x/n);
i:=x-n*(j-1);
if A[i,j]>max then
begin
max:=A[i,j];
k:=i;
l:=j;
end;
end;
until not flag;
swap(A[k,l],A[n*(1-ceil(p/n))+x,ceil(p/n)]);
dec(p);
end;
end ;

for j:=1 to m do
begin
for i:=1 to n do write (A[i,j]:4);
writeln;
end;
readln;
end.