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

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы

02.06.2012, 13:36. Показов 4152. Ответов 2
Метки нет (Все метки)

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


исправьте пожалуйста решение :
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
program werty;
Uses CRT;
Var
a: array [1..3,1..3]of integer;
i,j,m,n,max,min,s,d,f,g: integer;
 Begin
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 write('a[',i,',',j,']=');
 readln (a[i,j]);
 end;
For i:= 1 to 3 do
Begin
For j:= 1 to 3 do
write (a[i,j]:3);
writeln;
end;
 max:=a[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
Begin
If a[i,j]> max then
max:=a[i,j];
f:=i;
g:=j;
end;
writeln('max=',max);
min:=a[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
Begin
If a[i,j]< min then
min:=a[i,j];
f:=i;
g:=j;
end;
writeln('min=',min);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2012, 13:36
Ответы с готовыми решениями:

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

Массивы. Найти максимальный и минимальный элементы, определить их координаты и поменять местами
Дан массив. Количество элементов задано в программе. Элементы заданы случайным образом. Вывести на...

В матрице найти, в каждой строке максимальный и минимальный элементы и поменять их местами
var a:array of integer; i,j,n,m,max,min,z:integer; begin writeln('n,m'); readln(n,m);...

В заданной матрице В найти в каждой строке максимальный и минимальный элементы и поменять их местами
В заданной матрице В найти в каждой строке максимальный и минимальный элементы и поменять их...

2
Эксперт С++
4725 / 2546 / 757
Регистрация: 18.08.2009
Сообщений: 4,568
02.06.2012, 14:22 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
program werty;
 Uses CRT;
 Var
 a: array [1..3,1..3]of integer;
 i,j,m,n,max,min,s,d,f,g, i_min, j_min, i_max, j_max: integer;
 Begin
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 write('a[',i,',',j,']=');
 readln (a[i,j]);
 end;
 i_min:=1; j_min:=1; i_max:=1; j_max:=1;
 For i:= 1 to 3 do
 Begin
 For j:= 1 to 3 do
 write (a[i,j]:3);
 writeln;
 end;
 max:=a[1,1];
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 If a[i,j]> max then begin
 max:=a[i,j];
 i_max:=i; j_max:=j;
 end;
 f:=i;
 g:=j;
 end;
 writeln('max=',max);
 min:=a[1,1];
 For i:=1 to 3 do
 For j:=1 to 3 do
 Begin
 If a[i,j]< min then begin
 min:=a[i,j];
 i_min:=i; j_min:=j;
 end;
 f:=i;
 g:=j;
 end;
 writeln('min=',min);
 g:=a[i_min,j_min]; a[i_min,j_min]:=a[i_max,j_max]; a[i_max,j_max]:=g;
 writeln('Полученная матрица:');
  For i:= 1 to 3 do
 Begin
 For j:= 1 to 3 do
 write (a[i,j]:3);
 writeln;
 end;
 end.

Не по теме:

оставил Ваш стиль по максимуму, хотя код можно очень сильно сократить

1
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 17
02.06.2012, 17:13  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2012, 17:13
Помогаю со студенческими работами здесь

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

Массивы. Найти в матрице максимальный и минимальный элементы, поменять местами строки, в которых они расположены
Операции с двумерными массивами Найти в матрице максимальный и минимальный элементы, поменять...

Поменять в матрице местами минимальный и максимальный элементы
Дана матрица A(n,n). Поменяйте в ней местами минимальный и максимальный элементы Маткад вообще...

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


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

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

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