Сортировка каждого второго элемента строки матрицы по возрастанию

[anechka1034]

Добрый вечер. Пожалуйста помогите весь инет уже облазила и голову сломала не могу выполнить второй пункт. С первым быстро разобралась, а вот сортировка не могу ...могу отполировать. элементы четных столбцов или строк но вот элементы с четным порядковым номером в строке ни как

[Stilet]

Ппц... А че верх ногами не повернула? Так же читать удобнее. Мы ж в тилимилитрямдии учились.

for i:=1 to n do begin
 for j:=2 to m do begin  if not odd(j) then continue;
  for k:=2 to m do begin   if not odd(j) then continue;
   if abs(a[i,j])<abs(a[i,k]) then begin
    v:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=v;
   end;
  end;
 end;
end;

n, m - Строки и столбцы матрицы
i, j , k - Счетчики циклов
v - Типа элемента матрицы.

Идея ясна?

[юджик]

такое же задание.....последовал твоему совету получилась фигня...
может где тупанул?!

uses
  SysUtils;

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    i,j,n,x,k:integer;
begin
   repeat
    write('Порядок матрици n=');
     readln(n);
   until n in [1..nmax];
   writeln('Исходная матрица :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       a[i,j]:=random(20)-5;
       write(a[i,j]:4);
      end;
     writeln;
    end;

      for i:=1 to n do begin
 for j:=2 to n do begin  if not odd(j) then continue;
  for k:=2 to n do begin   if not odd(j) then continue;
   if abs(a[i,j])<abs(a[i,k]) then begin
    x:=a[i,j]; a[i,j]:=a[i,k]; a[i,k]:=x;
   end;
  end;
 end;
end;
writeln('Отсортированные строки');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end;
readln
end.

[Аватар]

получилась фигня

Так то ж идея. Нужно как бы и подумать не много. Поменяй так:

for j:=2 to n-1 do begin if not odd(j) then continue;
for k:=j+1 to n do begin if not odd(k) then continue;

[юджик]

Сообщение от Аватар

Так то ж идея. Нужно как бы и подумать не много. Поменяй так:

for j:=2 to n-1 do begin if not odd(j) then continue;
for k:=j+1 to n do begin if not odd(k) then continue;

так вообще ничего не меняет

[Аватар]

Меняет, только нечетные. Убери not перед odd в двух местах

[юджик]

Сообщение от Аватар

Меняет, только нечетные. Убери not перед odd в двух местах

СУПЕР ВСЕ РАБОТАЕТ. СПАСИБО!!!!