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

[fobos-159]

program tablica;
uses crt;
const
max_s= 50;
max_d= 50;
k=5;
TYPE
AR=array[1..max_d,1..max_s] of integer;
var
a:AR;
MVcol:ARRAY[1..max_s] of integer;
d, s, i,aw,j, Min_Max: integer;

PROCEDURE Table_Inp(Dti,Sti:INTEGER; VAR Ati:AR);
VAR
i,j,z:INTEGER;
BEGIN
repeat
clrscr;
writeln ('Выберите способ ввода значений таблицы');
writeln ('1-Ввод с клавиатуры');
writeln ('2-Случайный ввод');
readln (z);
until (z=1) or (z=2);

if z=1 then
begin
for i:=1 to Dti do
begin
for j:=1 to Sti do
begin
write('Введите значение таблицы a[',i,',',j,'] ');
readln (Ati[i,j]);
end;
end;
end;

if z=2 then
begin
randomize;
for i:=1 to Dti do
for j:=1 to Sti do
Ati[i,j]:=random (k);
end;

clrscr;
for i:=1 to Dti do
begin
for j:=1 to Sti do
write(Ati[i,j]:3);
writeln;
end;
readln;

for j:=1 to s do
write(Ati[aw,j],' ');
while Ati[aw,1]


readln;
END;

begin
d:=1;
s:=1;

repeat
clrscr;
write('Введите длину столбцов не более ' ,max_d,': ');
readln(d)
until (d>=1) and (d<= max_d);
clrscr;
repeat
clrscr;
write('Введите длину строк не более ' ,max_s,': ');
readln(s)
until (s>=1) and (s<= max_s);
writeln('Введите номер строки от 1 до ',d);
readln(aw);
Table_Inp(d,s,a);
readln;
end.

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

[Stilet]

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

Долго думал над этим высказыванием... загрузил моск на 100%.

[Аватар]

1 2 3 4 5
3 7 4 5 8
4 0 3 4 7

Во 2-ой строке это 4? Принадлежит 3-ом столбцам, в отличии 3,7,5 - двум и 8 одному

[BDA]

А может быть, нужно найти самый левый элемент из наиболее встречающихся в заданной строке?

[fobos-159]

Сообщение от Аватар

1 2 3 4 5
3 7 4 5 8
4 0 3 4 7

Во 2-ой строке это 4? Принадлежит 3-ом столбцам, в отличии 3,7,5 - двум и 8 одному

Да ты прав.
Но просто не понимаю как это в моем коде записать.

[fobos-159]

короче я в тупике(

[ViktorR]

Например, можно поступить так:
1. Формируем массив, в котором будем подсчитывать число столбцов для элементов указанной строки.
2. В цикле (а) по столбцам, выбираем элементы заданной строки.
3. В цикле (б) по столбцам, просматриваем все элементы матрицы по следующему алгоритму:
- если номер столбца в цикле (б) совпадает с номером столбца в цикле (а), переходим к следующему столбцу;
- в цикле (в) по строкам, просматриваем элементы столбца по строкам.
- если найдено совпадение со значением элемента заданной строки, то добавляем единицу в счетчик и переходим к следующему столбцу - цикл (б)
4. Просматриваем сформированный массив на поиск максимального элемента. Номер этого элемента соответствует столбцу в заданной строке.
5. Выводим результат.


Как-то так, ...