Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Kolapsis
1 / 1 / 0
Регистрация: 08.01.2016
Сообщений: 78
1

Двумерный массив, поменять местами макс и мин элемент

09.01.2016, 23:54. Просмотров 354. Ответов 1
Метки нет (Все метки)

Дан массив B(n*m).Элементы массива ввести в программе.Поменять местами максимальный и минимальный элемент
двумерн массив
Написал на паскале.нет, не приняли, сказали сделать проще

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
begin
clrscr;
  var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4));
  Writeln('Массив B: ',b);
  var n:=b.GetLength(0);
  var m:=b.GetLength(1);
  var imax:=0; var jmax:=0;
  var imin:=0; var jmin:=0;
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end
      else
        if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end;
  Swap(b[imin,jmin],b[imax,jmax]);
  Writeln('Результирующий массив: ',b)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2016, 23:54
Ответы с готовыми решениями:

Поменять местами МАКС И МИН
Поменять местами МАХ и МИН элементы и найти их среднее арифметическое.

Дан двумерный динамический массив. Найти максимальный и минимальный элемент. и поменять их местами
Дан двумерный массив. Найти максимальный и минимальный элемент и поменять их...

Дан двумерный массив 5х6 поменять местами средние столбцы
Дан двумерный массив 5х6 поменять местами средние столбцы. Желательно с...

Макс элемент заменить количеством положительных чисел в массиве, а мин - среднеорифметическим отрицательных
Прошу не оставлять без внимания. Помогите решить задачу! &quot;В одномерных...

Сформировать случайным образом целочисленный двумерный массив и поменять местами две строки
Сформировать случайным образом целочисленный двумерный массив и поменять...

1
TonyWinter
4 / 4 / 10
Регистрация: 08.01.2016
Сообщений: 78
10.01.2016, 12:08 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
57
58
59
60
61
62
63
64
65
66
var 
a:array of array of integer;
n,m:integer;
 
 
begin
n:=ReadInteger('Введите количество строк: ');
m:=ReadInteger('Введите количество столбцов:');
SetLength(a,n);
for var i:=0 to n-1 do SetLength(A[i],m);
 
println('Введите элементы матрицы');
for var i:=0 to n-1 do
  for var j:=0 to m-1 do
  begin
    write('[',i+1,'][',j+1,']: ');
    A[i,j]:=ReadInteger()
  end;
 
println('Исходная матрица');
for var i:=0 to n-1 do begin
  for var j:=0 to m-1 do
  begin
  write(A[i,j]:5);
  end;
 writeln;
end;
 
var matrix_min:=A[0][0];
var matrix_max:=A[0][0];
var index_i_max,index_j_max,index_i_min,index_j_min:byte;
for var i:=0 to n-1 do 
  for var j:=0 to m-1 do begin
     if (matrix_min>A[i,j]) then
      begin
      matrix_min:=A[i,j];
      index_i_min:=i;
      index_j_min:=j;
      end;
            
     if (A[i,j]>matrix_max) then
      begin
      matrix_max:=A[i,j];
      index_i_max:=i;
      index_j_max:=j;
      end;
end;
writeln('Максимальный элемент матрицы - ',matrix_max);
writeln('Его индекс - [',index_i_max+1,'][',index_j_max+1,']');
writeln('Минимальный элемент матрицы - ',matrix_min);
writeln('Его индекс - [',index_i_min+1,'][',index_j_min+1,']');
 
var temp:=A[index_i_min,index_j_min];
A[index_i_min,index_j_min]:= A[index_i_max,index_j_max];
A[index_i_max,index_j_max]:=temp;
 
println('Результирующая матрица');
for var i:=0 to n-1 do begin
  for var j:=0 to m-1 do
  begin
  write(A[i,j]:5);
  end;
 writeln;
end;
 
end.
Введите количество строк: 2
Введите количество столбцов: 2
Введите элементы матрицы
[1][1]: 99
[1][2]: 10
[2][1]: 45
[2][2]: 78
Исходная матрица
99 10
45 78
Максимальный элемент матрицы - 99
Его индекс - [1][1]
Минимальный элемент матрицы - 10
Его индекс - [1][2]
Результирующая матрица
10 99
45 78
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2016, 12:08

Сформировать случайным образом целочисленный двумерный массив и поменять местами две строки
Сформировать случайным образом целочисленный двумерный массив и поменять...

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

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


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

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

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