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

@masyanchik · Регистрация: 23.10.2017

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

@Hitoku · 04.06.2018, 11:54

Pascal

begin
  var a := MatrRandom(5, 5); a.Println;
  var max1 := a.ElementsWithIndexes.Where(v -> v[1] = v[2]).OrderBy(v -> v[0]).Last;
  var max2 := a.ElementsWithIndexes.Where(v -> v[1] = a.GetLength(1) - v[2] - 1).OrderBy(v -> v[0]).Last;
  Swap(a[max1.Item2, max1.Item3], a[max2.Item2, max2.Item3]);
  writeln; a.Println;
end.

@masyanchik 0 / 0 / 0 Регистрация: 23.10.2017 Сообщений: 18
		1
	В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей 04.06.2018, 11:36. Показов 1092. Ответов 1 Метки нет (Все метки) В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение