Дан двумерный массив размером 5 х 6, заполненный случайным образом

[dark999]

Дан двумерный массив размером 5 х 6, заполненный случайным образом.

- Заменить максимальный элемент каждой строки на противоположный;
- Вставить после столбцов с максимальными элементами столбец и нулей;
- Удалить среднюю строку;
- Поменять местами средние столбцы

______________________________

- Вставить после столбцов с максимальными элементами столбец и нулей;
- Удалить среднюю строку

Это я сделал)

const
  n=5;
  m=6;
var
  a,b,c,d:integer;
  z:array[1..n,1..(m+1)]of integer;
begin
  {создаем матрицу}
  c:=1;
  d:=1;
  randomize;
  for a:=1 to n do
    begin
      for b:=1 to m do
        begin
          {создаем и выводим}
          z[a,b]:=random(50);
          write(z[a,b]:4);
          {ищем максимальный элемент}
          if z[a,b]>z[c,d] then
            begin
              c:=a;
              d:=b;
            end;
        end;
      writeln;
    end;
  {выводим результат поиска}
  writeln(chr(13),chr(10),'I:',chr(13),chr(10),'maximum z[',c,',',d,']:=',z[c,d],chr(13),chr(10));
  {подстановка столбца}
  for a:=1 to n do
    begin
      for b:=m+1 downto d+1 do
        z[a,b]:=z[a,b-1];
      z[a,d+1]:=0;
    end;
  {вывод результата}
  for a:=1 to n do
    begin
      for b:=1 to m+1 do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  writeln(chr(13),chr(10),'II:',chr(13),chr(10));
  {удаление строки}
  for a:=((n div 2)+(n mod 2)) to n-1 do
    for b:=1 to m do
      z[a,b]:=z[a+1,b];
  {вывод результата}
  for a:=1 to n-1 do
    begin
      for b:=1 to m do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  end.

Осталось :

- Заменить максимальный элемент каждой строки на противоположный;
- Поменять местами средние столбцы


Но мне нужно написать ее одним кодом. помогите пожалуйста буду благодарен, хоть подскажите!

[dark999]

writeln('Обмен средних столбцoв:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln

Обмен средних столбцoв вроде бы так выходит)

[Mad_Cat]

Обмен средних столбцoв вроде бы так выходит)

а где обмен то7

Заменить максимальный элемент каждой строки на противоположный

for a:=1 to n do
begin
i:=1;
for b:=1 to m do
if z[a,b]>z[a,i] then i:=b;
z[a,i]:=- z[a,i];end;
for a:=1 to n do
begin
for b:=1 to m do
write(z[a,b]:4);
writeln;
end;

Башкирия

откуда именно7

[dark999]

А можешь все одним кодом записать?(так сказать готовым) Буду очень благодарен) Я с Тмз

[Mad_Cat]

{выводим результат поиска}

1)после этого вставь мой код
2)я это уже сделал
3)вставь продолжение своей проги
p.s Белебей

[dark999]

А обмен средних столбцов?

[dark999]

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

2)потом добавь вывод матрицы

Поясни какой вывод ?

[dark999]

Объясните плиз(