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

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

30.08.2013, 16:37. Показов 6928. Ответов 2
Метки нет (Все метки)

Найти номер строки и номер столбца на пересечении которых стоит максимальный двумерного массива Массив , номер строки и номер столбца , значение максимального элемента вывести на экран
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.08.2013, 16:37
Ответы с готовыми решениями:

Найти номер строки и номер столбца матрицы, на пересечении которых находится заданный элемент
Дана матрица A(n×n) многоразрядных целых чисел. Найти номер строки и номер столбца, на пересечении...

Определить номер строки и номер столбца матрицы X(5,6), на пересечении которых находится наибольший по абсолютной величине элемент.
Определить номер строки и номер столбца матрицы X(5,6), на пересечении которых находится наибольший...

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

Найти номер строки и столбца максимального элемента двумерного массива целых чисел
Доброго времени суток) Помогите пожалуйста решить несколько задач на массивы. Я в этом полный...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.08.2013, 16:49 2
Лучший ответ Сообщение было отмечено pasha199t как решение

Решение

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
uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,imx,jmx:byte;
    mx:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
mx:=a[1,1];
imx:=1;
jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j
 end;
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx);
end.
1
233 / 215 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
30.08.2013, 16:57 3
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
const n =5;
var
i,j,i1,j1,max:integer;
A: array[1..n,1..n] of integer;
begin
   i1:=0;
   j1:=0;
   max:=-maxint;
   for i:= 1 to n do
      begin
          for j:=1 to n do 
              begin
                  A[i,j]:=random(100)-33;
                  if A[i,j] > max then 
                      begin
                         max:=A[i,j];
                         i1:=i;
                         j1:=j;
                      end;
                   write(A[i,j]:5); 
              end;
          writeln;
      end;
      writeln('Максимальный элемент ',max, ' находится на пересечении  ' , i1, '  строки  ', j1, '  столбца');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.08.2013, 16:57
Помогаю со студенческими работами здесь

Дан номер строки L и номер столбца K, при помощи которых исходная матрица разбивается на четыре части. Найти сумму элементов каждой части
Кто может напишите пожалуйста всю программу целиком от начала до конца. Вот собственно и задача:...

Найти номер строки и столбца Max элемента двумерного массвива
Program Pro_909; uses crt; var a:array of integer; i,j,max,imax,jmax: integer; begin...

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

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


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

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

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