двумерный массив

[adaptes]

помогите пожалуйста мне нужно объяснить почему везде стоит n-1

program Project6; {вариант 4}
{$APPTYPE CONSOLE}
uses
  sysutils,
  windows;

label sle;
const n=4;
par=(n*4);
type matriz=array[1..n,1..n] of integer;
var i,j,l,k:integer;
mas:matriz;
im:array[1..par] of integer;
procedure vvod(var vmas:matriz);
begin
setconsolecp (1251);
setconsoleoutputcp (1251);
writeln('вводим элементы массива. размерность [',n,',',n,']');
for i:=1 to n do
for j:=1 to n do
begin
write('введите элемент [',i,',',j,']=');
readln(vmas[i,j]);
end;
end;
procedure print(vmas:matriz);
begin
writeln('ваш массив имеет вид');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',vmas[i,j],' ');
end;
writeln;
end;
end;
begin
vvod(mas);
for j:=1 to n do begin
 for i:=1 to n-1 do begin
  for k:=1 to n-1 do
   if mas[k,j]<mas[k+1,j] then begin
    l:=mas[k+1,j];
    mas[k+1,j]:=mas[k,j];
    mas[k,j]:=l;
   end;
 end;
end;
print(mas);
writeln('программа закончена. нажмите enter.');
readln;
end.

тоесть почему мы пишем n-1 и по какой причине

[Serge_Bliznykov]

это у Вас какая-то своеобразная реализация сортировки обменами..
а n-1 написано, чтобы нормально сработал код:

if mas[k,j]<mas[k+1,j] then begin

чтобы k+1 не "вылезно" за границу массива, поэтому цикл и крутим до n-1


p.s. мне ваш вариант сортировки не нравится. Какой-то кривой он
я бы по другому написал...

[vvmcpp]

Сообщение от adaptes

тоесть почему мы пишем n-1 и по какой причине

Чтобы не выйти за границы массива