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

Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца

20.04.2015, 17:18. Показов 1384. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца
-1 7 12 8
-1 3 -4 4
3 2 -1 4
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2015, 17:18
Ответы с готовыми решениями:

Поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный элемент
поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Поменять местами минимальный из положительных элементов матрицы, составить блок-схему
Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца...

Поменять местами элементы первого столбца с элементами столбца, в котором находится максимальный элемент
2) Дан массив A(10,5). Поменять местами элементы первого столбца с элементами столбца, в котором...

1
Модератор
10042 / 5387 / 3350
Регистрация: 17.08.2012
Сообщений: 16,459
21.04.2015, 17:31 2
Лучший ответ Сообщение было отмечено OleGek1996 как решение

Решение

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
var a: array [1..3, 1..4] of integer = ((-1, 7, 12, 8),
                                        (-1, 3, -4, 4),
                                        ( 3, 2, -1, 4));
    i, j, mpi, mpj, m3i, t: integer;
begin
  mpi := 0;
  mpj := 1;
  m3i := 1;
  writeln('Source array:');
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do
        begin
          write(a[i, j]:3);
          if (a[i, j] > 0) and (((mpi > 0) and (a[i, j] < a[mpi, mpj])) or (mpi = 0))
            then begin
              mpi := i;
              mpj := j
            end;
          if (j = 3) and (a[i, j] > a[m3i, j]) then m3i := i
        end;
      writeln
    end;
  writeln;
  t := a[mpi, mpj];
  a[mpi, mpj] := a[m3i, 3];
  a[m3i, i] := t;
  writeln('Result array:');
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do write(a[i, j]:3);
      writeln
    end;
  readln
end.
0
21.04.2015, 17:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2015, 17:31
Помогаю со студенческими работами здесь

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

Поменять местами минимальный и максимальный элемент в матрице
Ввести матрицу В(N,M). В каждом столбце матрицы поменять местами минимальный и максимальный...

Найти максимальный и минимальный элемент массива, и поменять их местами
Найти максимальный и минимальный элемент массива, и поменять их местами.

Поменять местами минимальный и максимальный элементы матрицы
состравьте пожалуйста программу с блок схемой поменять местами минимальный и максимальный...


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

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

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