помогите пожалуйста В квадратной матрице А(7,7) поменять местами минимальные элементыпервой

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

В квадратной матрице А(7,7) поменять местами малые элементы
первой и третьей строк, наибольшие элементы главной и побочной
диагоналей.

Задать свой вопрос
Виерт Егор
Обычно еще указывают язык программирования. Или, лицезрев решение, потом пишут "Ой, мне на ином языке надо!"
Николай Майтов
Но если же язык не указан, то нас же это не волнует, одному не подошло, а иному как раз)
Камилла
Если не указала означает его нет
Ярослава Кухаренок
Без заморочек.
Тимур Невокшенов
Скажите еще одно
Anton Setlnik
1-ая и третья по индексу либо по счету, точнее от 0 до 6 индексация или от 1 до 7
Евгения
Без понятия
Стефания Подмарева
Будет от 0
1 ответ

Изящно и непонятно.

// PascalABC.NET 3.4, сборка 1767 от 27.08.2018


begin

  var matr := MatrRandom(7, 7, 0, 100); matr.Println;  // // объявление матрицы со случайными значениями в спектре(0, 100) и её печать

  Swap(matr[0, matr.Row(0).IndexMin], matr[2, matr.Row(2).IndexMin]);   // меняем местами мин. элементы первой и третьей строк.

  var m := matr.ElementsWithIndexes.Where(t -gt; t[1] = t[2]).MaxBy(t -gt; t[0]);  // получение наибольшего элемента с его позицией в матрице основной диагонали.

  var s := matr.ElementsWithIndexes.Where(t -gt; (t[1], t[2]) in Range(0, 6).Select((t, i)-gt; (t, абс(i - 6)))).MaxBy(t -gt; t[0]);  // и побочной

  Println;  // отступ

  Swap(matr[m[1], m[2]], matr[s[1], s[2]]);  // меняем местами макс. элементы диагоналей

  matr.Println;  // печать результата

end.


Пример вывода в прибавлении:

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


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

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

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

Войти на сайт