Сортировка четных числа массива методом двоичного включения по столбцам

@Катенько · Регистрация: 17.09.2013

Author24 — интернет-сервис помощи студентам

Всем привет, не подскажите ли в чем ошибка?

Pascal

type mass=array[1..100,1..100] of integer;
var n,m:integer;
 
procedure init (var a:mass);   
var i,j:integer;
begin
 for i:=1 to n do
 for j:=1 to m do
     a[i,j]:=random(20);
end;
 
procedure print (a:mass);       
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
end;
 
procedure sort (var a:mass;k:integer);    
var i,j,m,l,r,x:integer;
begin
 for i:=2 to n do
  begin
   x:=a[i,k];
   l:=1;
   r:=i;
   while l<r do
    begin
     m:=(l+r) div 2;
 
     if ((a[m,k] mod 2 = 0) and (a[m,k] <= x)) then l:=m+1 else r:=m;  // тут я добавила проверку на четность
    end;
    for j:=i downto r+1 do a[j,k]:=a[j-1,k];
     a[r,k]:=x;
  end;
 end;
 
 
var u:mass;
    j:integer;
begin
     Writeln('Введите размерность массива');
     readln(n,m);
     init(u);
     writeln('Исходный массив');
     print(u);
     for j:=1 to n do sort(u,j);
     writeln('Сортированный массив');
     print(u);
end.

Добавлено через 7 минут
Чуть не забыла скинуть полное задание...

Отсортировать по возрастанию все четные числа массива с помощью метода двоичного включения по столбцам..

	12.11.2014, 13:30