Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
hohol
7 / 7 / 0
Регистрация: 03.10.2009
Сообщений: 46
1

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

09.10.2009, 16:36. Просмотров 940. Ответов 1
Метки нет (Все метки)

Люди, помогите, если нетрудно, вот аттестационный пример, без него пропаду:

Дан массив A[8,8]. Найти максимальный элемент среди элементов, расположенных выще побочной диагонали. Поменять местами элементы строки и столбца, на пересечени которых находится максимальный элемент.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2009, 16:36
Ответы с готовыми решениями:

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

Обнулить все элементы строки и столбца матрицы, на пересечении которых находится максимальный элемент матрицы
Определить максимальный элемент в произвольно заданной матрице Z размером m x n...

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

Элементы того столбца, в котором находится максимальный элемент матрицы, заменить на нули
Если не трудно помочь пожалуста помогите, буду очень благодарен)) у меня тут...

Удалить строки массива, в которых находится максимальный элемент
Дан массив B(n*m). Элементы массива ввести с клавиатуры. Удалить строку, в...

1
Puporev
Модератор
54589 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,312
10.10.2009, 13:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Пояснения к программе смотри в этих темах
http://www.cyberforum.ru/post298343.html
http://www.cyberforum.ru/pascal/thread55395.html
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
67
uses crt;
const n=8;
var a:array[1..n,1..n] of integer;
    i,j,mx,imx,jmx,x,p1,p2:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
mx:=a[1,1];
imx:=1;
jmx:=1;
for i:=1 to n do
for j:=1 to n do
if(j<n-i+1)and(a[i,j]>mx) then{выше побочной диагонали}
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j;
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  if(i=imx)and(j=jmx)then
   begin
    textcolor(12);
    write(a[i,j]:4);
   end
  else
   begin
    textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx);
writeln;
p1:=a[imx,jmx];
p2:=a[jmx,jmx];
for j:=1 to n do
 begin
  x:=a[imx,j];
  a[imx,j]:=a[j,jmx];
  a[j,jmx]:=x;
 end;
a[imx,jmx]:=p1;
a[imx,imx]:=p2;
writeln('Результат обмена строки ',imx,' и столбца ',jmx);
for i:=1 to n do
 begin
  for j:=1 to n do
  if (i=imx)or(j=jmx)then
   begin
    textcolor(12);
    write(a[i,j]:4);
   end
  else
   begin
    textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2009, 13:19

Заменить максимальный элемент каждой строки матрицы номером столбца в котором он находится
Дан двумерный массив размером n*m заполненный случайным образом 1.Заменить...

Найти наибольший элемент матрицы и номер строки и столбца, в которых он находится
Ребят, такие вот задачи. Помогите! III) Найти наибольший элемент матрицы...

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


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

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

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