Найти максимальный отрицательный элемент в двумерном массиве и удалить столбцы, содержащие копии этого элемента

@Prazzy · Регистрация: 21.12.2017

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

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

@bormant · 21.01.2019, 21:19

Допустим, найденный элемент -- mx, оставим те столбцы, в которых mx нет.

Pascal

j:=n; n:=0;
for j:=1 to j do begin
  i:=m; while (i>0) and (a[i,j]<>mx) do Dec(i);
  if i=0 then begin
    Inc(n); if n<j then for i:=1 to m do a[i,n]:=a[i,j];
  end;
end;

Добавлено через 5 минут
Условие «if n<j then» можно убрать, оно призвано сэкономить перенос первых столбцов, не содержащих mx.

@Prazzy 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 6
		1
	Найти максимальный отрицательный элемент в двумерном массиве и удалить столбцы, содержащие копии этого элемента 21.01.2019, 12:34. Показов 1695. Ответов 1 Метки нет (Все метки) Найти максимальный отрицательный элемент в двумерном массиве и удалить столбцы, содержащие копии этого элемента. Выполнить без использования дополнительного массива. Выполнить в виде подпрограммы. Первую часть задачи написал, нужна помощь только со второй. 0

	21.01.2019, 21:19

Найти максимальный отрицательный элемент в двумерном массиве и удалить столбцы, содержащие копии этого элемента

Решение