удаление столбца матрицы, и сортировка 1 строки., помогите пожалуйста с решением следующей задачи: Опции

[HUNTER77]

uses crt;
const
n=3;m=3;
var
a:array[1..n , 1..m] of byte;
i,j,max,imax,jmax:byte;
begin
for i:=1 to n do
for j:=1 to m do     begin
writeln('a[',i,j,']'); readln(a[i,j]);
end;     writeln;
imax:=1;jmax:=1;
max:=a[imax,jmax];

 max:=a[1,1];
    For i:=1 to n do begin
For j:=1 to m do          begin
 If max< a[i,j] then
  max:=a[i,j]         end     end;
   imax:=1; jmax:=1;
    for i:=1 to n do
     for j:=1 to m do
if a[i,j] > a[imax,jmax] then begin
 imax:= i;
  jmax:= j end;
  writeln;
  for i:=1 to n do   begin
for j:=1 to m do
write(a[i,j], '  '); writeln; end;
writeln;
write(max);                   read;    end.

необходимо:удалить столбец содержащий максимальный элемент матрицы,(это я пытался сделать...но ничего не вышло,мои попытки:

 For i:=imax to n do
For j:=1 to n do
a[i,j]:=a[i+1,j];

For i:=1 to n do
For j:=jmax to n do
a[i,j]:=a[i,j+1];
,,,,,,,,

  for j:=1 to n do
   write(a[i,j]:4);
   writeln;
 end;
 
 
 

for j:=jmax to n-1 do
 for i:=1 to n do
  a[i,j]:=a[i,j+1];

,,,,,,,,,,,,,,,,,,,,,,,,,,,
  for i:=1 to n do   begin
for j:=1 to m do
write(a[i,j], '  '); writeln; end;
writeln;
write(max);                   read;    end.

                          for i := 1 to N do
                        for j := jmax to m - 1 do

    a[i, j] := a[i, j + 1];
Dec(i,M);

нечетные отрицательные элементы элементы первой строки расположить по убыванию,,на этот счет вообще нет никаких мыслей.
кто может прошу помочь!

Сообщение отредактировано: volvo - 25.03.2011 19:36

[volvo]

//так как нам нужно первая строка то очевидно что нужен только один цикл

Давай договоримся, ты сначала будешь проверять решения, и только потом - из публиковать. То, что ты привел задачу не решает. Как был массив:

const
  m = 10;
  a : array[1 .. 1, 1 .. m] of integer =
  ((1, 2, 3, -1, -5, 6, 7, -3, -4, 10));

, так после "сортировки" и остался:

Running "f:\programs\pascal\eee.exe "
   1   2   3  -1  -5   6   7  -3  -4  10

И где тут сортировка отрицательных элементов? Ответ должен быть таким:
1 2 3 -1 -3 6 7 -5 -4 10
(то есть, все отрицательные нечетные сортируются по убыванию, все остальные - на своих местах!!!). Повторяю: поиск и еще раз поиск, задача решалась. Неоднократно.

[DarkWishmaster]

Давай договоримся, ты сначала будешь проверять решения, и только потом - из публиковать. То, что ты привел задачу не решает. Как был массив:

const
  m = 10;
  a : array[1 .. 1, 1 .. m] of integer =
  ((1, 2, 3, -1, -5, 6, 7, -3, -4, 10));

, так после "сортировки" и остался:

Running "f:\programs\pascal\eee.exe "
   1   2   3  -1  -5   6   7  -3  -4  10

И где тут сортировка отрицательных элементов? Ответ должен быть таким:
1 2 3 -1 -3 6 7 -5 -4 10
(то есть, все отрицательные нечетные сортируются по убыванию, все остальные - на своих местах!!!). Повторяю: поиск и еще раз поиск, задача решалась. Неоднократно.

Прошу прощения. Надеюсь это лучше:

 
 function Control(x:integer):boolean;
     begin
       if (a[1,x]<0) and (a[1,x] mod 2<>0) then Control:=True
         else Control:=False;
       end; 

 
   for j:=1 to m do
        if control(j)=True then begin
           for x:=j to n-1 do
            if Control(x)=True then
             if a[1,x]>a[1,j] then begin
               aux:=a[1,x]; a[1,x]:=a[1,j]; a[1,j]:=aux;
                end;
            end;