1 / 1 / 1
Регистрация: 09.09.2014
Сообщений: 39
1

Поменять местами макс элемент матрицы, стоящий над главной диагональю с макс элементом, стоящим под ней

17.09.2014, 12:29. Показов 1571. Ответов 2
Метки нет (Все метки)

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

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

Если мин элементы столбцов находятся над главной диагональю, то поменять местами макс и мин элементы
1.Дана целочисленная матрица размерности (n ×n). Если минимальные элементы столбцов находятся...

Каждый элемент, стоящий на чётной позиции, поменять местами с соседним элементом, стоящим перед ним
Задача состоит в следующем: дан список, каждый элемент, стоящий на чётной позиции, поменять местами...

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

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,438
Записей в блоге: 1
17.09.2014, 13:23 2
Лучший ответ Сообщение было отмечено legenda32 как решение

Решение

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
Const nmax=10;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n,imax1,jmax1,imax2,jmax2:byte;
    tmp:integer;
Begin
    Repeat
     write('Введите 1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    imax1:=1;jmax1:=2;imax2:=2;jmax2:=1;
    For i:=1 to n-1 do
     For j:=i+1 to n do
     Begin
       if A[i,j]>A[imax1,jmax1] then
       Begin
         imax1:=i;
         jmax1:=j;
       End;
       if A[j,i]>A[imax2,jmax2] then 
       Begin
         imax2:=j;
         jmax2:=i;
       End;
     End;
    writeln('Max над главной диагональю = ',A[imax1,jmax1]);
    writeln('Max под главной диагональю = ',A[imax2,jmax2]);
    writeln('Полученная матрица');
    tmp:=A[imax1,jmax1];
    A[imax1,jmax1]:=A[imax2,jmax2];
    A[imax2,jmax2]:=tmp;
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.
0
Заблокирован
17.09.2014, 13:38 3
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
uses Crt;
const
   n = 7;
var
   i,j,i1,j1,i2,j2,max1,max2: integer;
   a: array[1..n, 1..n] of integer;
label 100;
begin
   randomize;
   clrscr;
   for i:= 1 to n do
   for j:= 1 to n do
      a[i,j]:= -10 + Random(21);
 
   for i:= 1 to n do begin
      for j:= 1 to n do
         write(a[i,j]:4);
      writeln
   end;
 
   max1:= a[1,n];
   max2:= a[n,1];
   i1:= 1;
   j1:= n;
   i2:= n;
   j2:= 1;
   for i:= 1 to n do
   for j:= i+1 to n do
      if a[i,j] > max1 then begin
         max1:= a[i,j];
         i1:= i;
         j1:= j;
      end;
 
   for j:= 1 to n do
   for i:= j+1 to n do
      if a[i,j] > max2 then begin
         max2:= a[i,j];
         i2:= i;
         j2:= j;
      end;
   i:= a[i1,j1];
   a[i1,j1]:= a[i2,j2];
   a[i2,j2]:= i;
   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
17.09.2014, 13:38
Помогаю со студенческими работами здесь

В одномерном массиве поменять местами первый макс. элемент с последним мин. элементом
Здравствуйте, у меня возникли некоторые сложности с заданием которое звучит так: В одномерном...

Поменять местами max элемент главной и побочной диагоналей с элементом, стоящим на их пересечении
Здравствуйте, помогите пожалуйста написать программу! В квадратной матрице А поменять местами...

Найти макс. элемент массива в первый половине и поменять его местами с последним элементом
Всем привет, суть такова написал программу в free pascal ide на windows, но выдает ошибку...

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

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

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


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

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

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