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

Поменять местами max и min значения среди элементов, расположенных выше главной диагонали матрицы

18.09.2014, 19:07. Показов 1632. Ответов 1
Метки нет (Все метки)

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

Среди элементов матрицы, расположенных выше главной диагонали, найти наибольшее значение
1.Дана целочисленная матрица Х размером 10х10. Среди элементов,расположенных выше главной...

Если над главной диагональю матрицы только отрицательные элементы - поменять местами ее min и max значения
даны два двумерных массива A(6,6) и B(7,7). Если над главной диагональю массива только...

Найти количество элементов, расположенных выше главной диагонали матрицы
Нужна помощь Задан двухмерный массив целых чисел А размером М на N. Найти количество элементов,...

Вычислить сумму отрицательных элементов расположенных выше главной диагонали матрицы
в матрице С (10,10) вычислить сумму отрицательных элементов расположенных выше главной диагонали

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
18.09.2014, 19:28 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,imx,jmx,imn,jmn,x:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
imn:=2;
jmn:=n;
imx:=2;
jmx:=n;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    if (j>i)and(j>n-i+1) then
     begin
      textcolor(12);
      if a[i,j]<a[imn,jmn] then
       begin
        imn:=i;
        jmn:=j
       end
      else if a[i,j]>a[imx,jmx] then
       begin
        imx:=i;
        jmx:=j
       end;
     end
    else textcolor(15);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Минимальный элемент a[',imn,',',jmn,']=',a[imn,jmn]);
writeln('Максимальный элемент a[',imx,',',jmx,']=',a[imx,jmx]);
x:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=x;
writeln;
writeln('Обмен минимального и максимального');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j>i)and(j>n-i+1) then textcolor(12)
    else textcolor(15);
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2014, 19:28

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

Переменные присвоить значение наибольшего из элементов матрицы, расположенных выше главной диагонали
Переменные Z присвоить значение наибольшего из элементов матрицы a , расположенных выше главной...

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

Найти минимальный элемент матрицы среди элементов выше главной диагонали
Дана квадратная матрица A(nхn). Найти минимальный элемент матрицы среди элементов выше главной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.