Подскажите с сортировкой двумерного массива по столбцам, что-то не выходит. Вот наработка
uses crt;
const
nmax=100;
type
arr=array[0..nmax,0..nmax] of integer;
var
z:arr;
s,i,j,buf,n,m,p:integer;
begin
Writeln('ВВод матрицы');
writeln('Ввод кол-вo строк');
readln(n);
writeln('Ввод кол-во стоблцов');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
Writeln('Ввод ',i,' ',j,'элемента матрицы');
readln(z[i,j]);
end;
end; for j:=1 to m do
begin
for i:=1 to n do
if z[i,j]>z[i+1,j] then
begin
buf:=z[i,j];
z[i,j]:=z[i+1,j];
z[i+1,j]:=buf;
end; end;
for i:=1 to n do
for j:=1 to m do
begin
write(z[i,j]:4);
if j=m then writeln();
end;
end.
"Пузырек" одним циклом? Оригинально, но неправильно. Циклов должно быть 2:
for j:=1 to m do { Это - внешний цикл, перебирающий столбцы }
begin
{ А для каждого столбца - еще 2 цикла: }
for k:=1 to n do for i := n downto k+1 do
if z[i-1,j]>z[i,j] then
begin
buf:=z[i,j];
z[i,j]:=z[i-1,j];
z[i-1,j]:=buf;
end;
end;
, тогда будет сортировать элементы столбца по возрастанию...
> "Пузырек" одним циклом?
Думаю, это не специально.
Потому что отступы и форматирование соблюдать надо.
У тебя тоже то ли бегин пропущен, то ли енд лишний.
Вот поэтому я или обрамляю лишний раз парой begin-end, либо пишу ВЕСЬ заголовок в одну строку
for k:=1 to n do for i := n downto k+1 do if z[i-1,j]>z[i,j] then begin
buf:=z[i,j];
z[i,j]:=z[i-1,j];
z[i-1,j]:=buf;
end;