Задана действительная квадратная матрица порядка n. Отыскать величайший по модулю элемент

Задана действительная квадратная матрица порядка n. Отыскать величайший по модулю элемент матрицы. Не используя вспомогательного массива, получить квадратную матрицу порядка n-1 путем выбрасывания из начальной матрицы строчки и столбца, на пересечении которых размещен элемент с найденным значением. Размерность матрицы и значения ее частей ввести с клавиатуры.

Задать свой вопрос
2 ответа
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var ijv:=a.ElementsWithIndexes.Select(x-gt;(x[0],x[1],абс(x[2])))
      .MaxBy(x-gt;x[2]);
  for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
  for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
  SetLength(a,n-1,n-1); a.Println(4)    
end.

Пример
Количество строк/столбцов в матрице: 5
  87  -5 -38  -9  57
  31  66  57 -25  40
  11  66  99 -79  91
  12  95  93  27 -97
  33 -94  14  19  39
--------------------
  87  -5  -9  57
  31  66 -25  40
  12  95  27 -97
  33 -94  19  39


for(i
for(j
if(fabs(m[i][j])gt;fmax)

for(i lt;n-1)
for(j lt;n-1)
m[i][j]=m[i+1][j+1]
return


может быть....
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт