Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 1
Регистрация: 05.10.2010
Сообщений: 32
1

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

25.01.2015, 22:48. Показов 2269. Ответов 3
Метки нет (Все метки)

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

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

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

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

Найти номер столбца массива размером M x N, в котором находится наибольшее количество отрицательных элементов
Найти номер столбца массива размером M x N, в котором находится наибольшее количество отрицательных...

3
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
26.01.2015, 10:30 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
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,mn,k,jmx,mx:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(4);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=0;
for j:=1 to n do
 begin
  mn:=a[1,j];
  k:=1;
  for i:=2 to m do
  if a[i,j]=mn then inc(k)
  else if a[i,j]<mn then
   begin
    mn:=a[i,j];
    k:=1;
   end;
  writeln('В столбце ',j,' мин=',mn,' количество=',k);
  if k>mx then
   begin
    mx:=k;
    jmx:=j
   end;
 end;
writeln('Максимальное количество минимальных=',mx,' в столюце ',jmx);
end.
0
0 / 0 / 1
Регистрация: 05.10.2010
Сообщений: 32
27.01.2015, 19:14  [ТС] 3
а если,допустим,максимальное кол-во в 1 и 3 столбце одинаковое,значит нужно вывести и номер 1-го и номер 3-го столбца.
эта программа не позволяет,как дополнить,подскажите?
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2015, 19:29 4
Лучший ответ Сообщение было отмечено Наташок как решение

Решение

Это нужно программу переделывать, сначала искать максимальное количество минимальных в столбце, а потом снова идти по столбцам, считать количество минимальных и выводить номера столбцов в которых оно равно максимуму.
Или записывать количество минимальных в массив и выводить номера где количество=максимуму.

Добавлено через 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
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    m,n,i,j,mn,k,jmx,mx:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(4);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=0;
for j:=1 to n do
 begin
  mn:=a[1,j];
  k:=1;
  for i:=2 to m do
  if a[i,j]=mn then inc(k)
  else if a[i,j]<mn then
   begin
    mn:=a[i,j];
    k:=1;
   end;
  writeln('В столбце ',j,' мин=',mn,' количество=',k);
  b[j]:=k;
  if k>mx then mx:=k;
 end;
writeln('Максимальное количество минимальных=',mx,' в столбцах:');
for i:=1 to n do
if b[i]=mx then write(i:3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2015, 19:29

Найти номер столбца массива размером MxN, в котором находится наибольшее количество элементов, кратных 5
Найти номер столбца массива размером MxN, в котором находится наибольшее количество элементов,...

Найти номер столбца массива размером МхN, в котором находится наибольшее количество элементов, кратных 5
Можете помочь. &quot;Найти номер столбца массива размером МхN, в котором находится наибольшее количество...

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

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


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

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

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