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

@супер чайник · Регистрация: 13.02.2011

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

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

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

@MAZUR777 · 19.04.2011, 15:30

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

Pascal

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.

@супер чайник · 19.04.2011, 15:53 **[ТС]**

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

Еще бы это сделать будет здорово!

@супер чайник · 19.04.2011, 17:09 **[ТС]**

Возможно ли написать программу в одним кодом? Напишите пожалуйста, а то по отдельности не то получается(

@супер чайник · 20.04.2011, 10:11 **[ТС]**

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

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

______________________________

Осталось:

- Поменять местами средние столбцы

Pascal

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;
  {выводим результат поиска}
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;
  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.

Помогите пожалуйста!

@Прячущая Хвост · 20.04.2011, 14:49

Смена столбцов для полученной матрицы (размерности n-1 на m):

Pascal

for a:= 1 to n-1 do
        x[a]:= z[a,m div 2];
 
      for a:= 1 to n-1 do
        z[a,m div 2]:= z[a,m div 2 +1];
 
      for a:= 1 to n-1 do
        z[a,m div 2 + 1]:= x[a];

@супер чайник 0 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 32
		1
	Заменить максимальный элемент каждой строки матрицы на противоположный 19.04.2011, 15:21. Показов 3266. Ответов 5 Метки нет (Все метки) Дан двумерный массив размером 5 х 6, заполненный случайным образом. - Заменить максимальный элемент каждой строки на противоположный; - Вставить после столбцов с максимальными элементами столбец и нулей; - Удалить среднюю строку; - Поменять местами средние столбцы 0

@супер чайник 0 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 32
	19.04.2011, 15:53 [ТС]	3
	- Заменить максимальный элемент каждой строки на противоположный; - Поменять местами средние столбцы Еще бы это сделать будет здорово! 0

@супер чайник 0 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 32
	19.04.2011, 17:09 [ТС]	4
	Возможно ли написать программу в одним кодом? Напишите пожалуйста, а то по отдельности не то получается( 0

Опции темы

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

Решение