Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
1

Удалить столбец в котором находится максимальный элемент матрицы

10.01.2011, 15:47. Показов 1483. Ответов 3
Метки нет (Все метки)

Дана целочисельная прямоугольная матрица.1,найти мин. елемент среди макс. прогу я попытался сделать
но

помогите разобраться можна ли в проге както сделать random чтоби матрицу не вводить вручную


как найти номер строки и столбца такого елемента

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

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
program min max;
 
var a : array [1..100,1..100] of integer;
b : array [1..100] of integer;
i,j,n,m,min,max : integer;
begin
 
write('Êîëè÷åñòâî ñòðîê=');
readln(m);
 
write('Êîëè÷åñòâî ñòîëáöîâ â ñòðîêå=');
readln(n);
 
 
for i:=1 to m do
begin
writeln(i, '-àÿ ñòðîêà:');
for j:=1 to n do
begin
write(' ', j, '-ûé ñòîëáåö = ');
readln(a[i,j]);
end;
end;
 
 
for i:=1 to m do
begin
max:=a[i, 1];
for j:=2 to n do if a[i, j] > max then max := a[i, j];
b[i]:=max;
end;
 
 
min:=b[1];
for i:=2 to m do if b[i]<min then min:=b[i];
 
 
writeln('Îòâåò=',min);
readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2011, 15:47
Ответы с готовыми решениями:

Удалить столбец двумерного массива , в котором находится максимальный элемент
Задача для программы Паскаль. &quot;Удалить столбец двумерного массива целых чисел размерностью 5*4, в...

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

Удалить столбец матрицы в котором находится max эллемент.
Пожалйста помогите ......Дана матрица размером n x m найти максимальный эллемент этой матрицы.И...

Найти наименьший элемент главной диагонали матрицы A(N x N) и вывести весь столбец, в котором он находится
Помогите пожалуйста Добавлено через 12 минут const n=4; Var A:array of integer;...

3
780 / 461 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 16:18 2
по рандому на форуме куча примеров
0
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
10.01.2011, 16:53  [ТС] 3
я пропустил в условии что точнее будет (найти минимальный елемент среди максимальных елементов СТРОК)

Добавлено через 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
program mat;
var a:array[1..100,1..100] of integer;
 
    i,j,n,m,n1,n2,n3,n4,min,max:integer;
 
begin
writeln('ââåñòèðîçìåðíîñòü ìàòðèöû');
read(n);
 writeln('íà');
   readln(m);
for i:=1 to n do
 
 for j:=1 to m do
 
  a[i,j]:=random(100);
 
 
  min:=a[1,1];
 
  max:=a[1,1];
 
for i:=1 to n do begin
 
for j:=1 to n do begin
 
 if a[i,j]<min then begin min:=a[i,j]; n1:=i; n2:=j; end;
 
 if a[i,j]>max then begin max:=a[i,j]; n3:=i; n4:=j; end;
 
 end;
 
 end;
 
 writeln(max,' - ìàêñèìàëüíûé ýëåìåíò   ',n1,'- íîìåð ñòðîêè   ',n2,'- íîìåð ñòîëáèêà');
 
  writeln(min,' - ìèíèìàëüíûé ýëåìåíò   ',n3,'- íîìåð ñòðîêè   ',n4,'- íîìåð ñòîëáèêà');
 
  end.
но тут находиться только макс и мин а мне нужно минимальный елемент среди максимальных елементов СТРОК)
0
780 / 461 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 17:11 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ну а она что вам выводит . Вы ж задачу с нета скачали )))она выводит мин среди максимального...

вот так ... знакома )))

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
   1. program z63;   
   2.    uses crt;   
   3.    var a : array [1..100,1..100] of integer;  
   4.          b : array [1..100] of integer; 
   5.          i,j,n,m,min,max : integer;   
   6.  begin   
   7.    clrscr;   
   8.    write('Количество строк=');   
   9.    readln(m);   
  10.   
  11.    write('Количество столбцов в строке=');   
  12.    readln(n);   
  13.   
  14.    {Ввод таблицы}   
  15.    for i:=1 to m do   
  16.     begin   
  17.      writeln(i, '-ая строка:');   
  18.      for j:=1 to n do   
  19.       begin   
  20.        write('  ', j, '-ый столбец = ');   
  21.        readln(a[i,j]);   
  22.       end;   
  23.     end;   
  24.   
  25.    {поиск максимумов в строках}   
  26.    for i:=1 to m do   
  27.     begin   
  28.      max:=a[i, 1];   
  29.      for j:=2 to n do if a[i, j] > max then max := a[i, j];   
  30.      b[i]:=max;   
  31.     end;   
  32.   
  33.    {поиск минимального в полученной таблице}   
  34.    min:=b[1];   
  35.    for i:=2 to m do if b[i]<min then min:=b[i];   
  36.   
  37.    {Вывод результатов}   
  38.    writeln('Ответ=',min);   
  39.    readln;   
  40.  end.  
 
program z63; 
   uses crt; 
   var a : array [1..100,1..100] of integer;{ квадратный массив 100х100 с элементами типа integer} 
         b : array [1..100] of integer;{см. задачу №62} 
         i,j,n,m,min,max : integer; 
 begin 
   clrscr; 
   write('Количество строк='); 
   readln(m); 
 
   write('Количество столбцов в строке='); 
   readln(n); 
 
   {Ввод таблицы} 
   for i:=1 to m do 
    begin 
     writeln(i, '-ая строка:'); 
     for j:=1 to n do 
      begin 
       write('  ', j, '-ый столбец = '); 
       readln(a[i,j]); 
      end; 
    end; 
 
   {поиск максимумов в строках} 
   for i:=1 to m do 
    begin 
     max:=a[i, 1]; 
     for j:=2 to n do if a[i, j] > max then max := a[i, j]; 
     b[i]:=max; 
    end; 
 
   {поиск минимального в полученной таблице} 
   min:=b[1]; 
   for i:=2 to m do if b[i]<min then min:=b[i]; 
 
   {Вывод результатов} 
   writeln('Ответ=',min); 
   readln; 
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2011, 17:11

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти сумму элементов столбца матрицы, в котором находится максимальный элемент
дан двумерный массив найти сумму элементов столбца в котором находится максимальный элемент

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

Исключить из матрицы строку и столбец на пересечении которых находится максимальный элемент.
Дан двумерный числовой массив. Исключить из него строку и столбец на пересечении которых находится...

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


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

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

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