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

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы

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

Студворк — интернет-сервис помощи студентам
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального элемента среди элементов главной диагонали.

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

3. *Дан двумерный массив n*m, элементами которого являются целые числа. Упорядочить массив по убыванию элементов 3-го столбца.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2014, 07:07
Ответы с готовыми решениями:

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

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального...

Матрицы. Найти индексы минимального и максимального элементов. Найти сумму элементов главной и побочной диагонали
Здравствуйте) Прошу помощи в решении двух задач: 1) Ввести массив W(30). Найти индексы его...

Вычислить сумму максимального и минимального элементов главной диагонали матрицы
n*m: 6*6 Тип элементов матрицы: целый. Задача: Вычислить сумму максимального и минимального...

1
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
01.12.2014, 09:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Возможные варианты решений:
1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  N = 5;
var
  i, j, min, max: integer;
  x : array [1..N, 1..N] of integer;
begin
  for i:=1 to N do begin
    for j:=1 to N do begin
      x[i,j]:=random(9)+1;
      write(x[i,j], ' ');
      end;
      writeln;
    end;
  min:=x[1,1];
  max:=x[1,1];
  for i:=1 to N do
    if x[i,i]<min then
      min:=x[i,i]
        else if x[i,i]>max then
          max:=x[i,i];
  writeln('Sum = ', min+max);
end.

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
const
  N = 5;
var
  i, j, max, cord: integer;
  x : array [1..N, 1..N] of integer;
begin
  for i:=1 to N do begin
    for j:=1 to N do begin
      x[i,j]:=random(9)+1;
      write(x[i,j], ' ');
      end;
      writeln;
    end;
  max:=x[1,1];
  writeln('-------------');
  for i:=1 to N do
    if x[i,i]>max then begin
      max:=x[i,i];
      cord:=i;
    end;
  writeln('Max = ', max, '; Position = x[', cord, ',', cord, ']');
  write('Row: ');
  for i:=1 to N do
    write(x[cord,i], ' ');
  writeln;
  write('Column: ');
  for i:=1 to N do
    write(x[i,cord], ' ');
    writeln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2014, 09:59
Помогаю со студенческими работами здесь

В квадратной матрице найти сумму минимального и максимального элементов главной диагонали
В квадратной матрице найти сумму минимального и максимального элементов главной диагонали. ...

Квадратная матрица. Найти сумму номеров минимального и максимального элементов её главной диагонали
Дан двумерный массив a, размером (nхn)(или квадратная матрица а). Найти сумму номеров минимального...

Сумму элементов главной диагонали матрицы увеличить на значение максимального элемента
Найти суму элементов главной диагонали, увеличить на значение максимального элемента в массиве...

Перестановка максимального и минимального элемента в главной диагонали матрицы случайных чисел
Создать матрицу и заполнить её случайными числами. Поменять местами максимальный и минимальный...


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

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

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