0 / 0 / 0
Регистрация: 23.10.2017
Сообщений: 18
1

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

05.06.2018, 19:06. Показов 1599. Ответов 1
Метки нет (Все метки)

В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2018, 19:06
Ответы с готовыми решениями:

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

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

Матрица. Поменять местами элементы главной и побочной диагоналей
Задана матрица Х (Н) (Н<=15). Поменять местами элементы главной и побочной диагоналей. Отпечатать...

Дана матрица А порядка n. Поменять местами элементы главной и побочной диагоналей
Нужна срочная помощь) Дана матрица А порядка n. Поменять местами элементы главной и побочной...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
06.06.2018, 08:00 2
Лучший ответ Сообщение было отмечено masyanchik как решение

Решение

Взято отсюда:
Найти наибольший элемент среди стоящих на главной и побочной диагоналях матрицы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program n685;
 
uses crt;
 
var
  jmxp, imxp, jmx, imx, i, j, m, n, x: integer;
  a: array[1..19, 1..19] of integer;
 
begin
  clrscr;
  randomize;
  repeat
    write('Введите нечетное n до 19 n=');
    readln(n);
  until (n in [1..19]) and odd(n);
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(50);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  imx := 1;
  jmx := 1;
  imxp := n;
  jmxp := 1;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (j = n - i + 1) and (a[i, j] > a[imxp, jmxp]) then
      begin
        imxp := i;
        jmxp := j;
      end;
      if (i = j) and (a[i, j] > a[imx, jmx]) then
      begin
        imx := i;
        jmx := j;
      end;
    end;
  writeln('Максимальный элемент побочной диагонали a[', imxp, ',', jmxp, ']=', a[imxp, jmxp]);
  writeln('Максимальный элемент главной диагонали a[', imx, ',', jmx, ']=', a[imx, jmx]);
  x := a[imx, jmx];
  a[imx, jmx] := a[imxp, jmxp];
  a[imxp, jmxp] := x;
  writeln('Обмен элементов:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 08:00
Помогаю со студенческими работами здесь

Дано двумерный массив(4*4). Поменять местами элементы главной и побочной диагоналей.
Дано двумерный массив(4*4). Поменять местами элементы главной и побочной диагоналей.

Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей
1. В однородном массиве, состоящем из n элементов, вычислить: - номер минимального элемента...

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

В заданной квадратной матрице поменять местами элементы, стоящие на главной и побочной диагонали
Добрый день ! Помогите пожалуйста с задачей,очень нужно! (С++) Дана матрицы А(3,3). В матрице...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru