паскаль

[Akcentbek]

народ помогите как реализовать такое\\


наити элемент строки принадлежащий наибольшему количеству столбцов

скажите мне алгоритм как это сделать ))))
прям по порядку чтоб я мог думать а то моим думаниям тупняк наступает

[IT-man]

найди в строке элемент встречающийся больше всего раз

[Akcentbek]

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

[Alex11223]

Как-то криво задание сформулировано, я не понял что и где в нем просят найти.

[rUs_LAN]

1 2 2
1 2 2
3 1 3

element 1 vstrechayt'ya naybolshee kolichestvo raz

типа такого?

[Rin]

rus_LAN, почти да.

строка = 1234
                |1    4     1     4  |
матрица=        |5    5     1     6  |
                |4    5     1     6  |
                |5    5     1     6  |

Ответ : 4 , т.к. задание "наити элемент строки принадлежащий наибольшему количеству столбцов "

1) рандомно заполняем матрицу.
2)циклом while с условием достижения конца заданной строки пробегаем по столбцам, ища i-тый элемент. Как только нашли, счетчик+1, переходим на след. столбец.
3)Пройдясь по всей матрице, сравниваем счётчик с какой-то переменной(допустим most_max), и если счётчик больше, то most_max присваиваем счётчик, а most_char присваиваем i-тый элемент.
4) ну и в конце выдаём матрицу и ниже что-то типа writeln('e/\eMeHT "',most_char,'" HaxoDuTc9 B Hau6o/\WeM Ko/\-Be cTo/\6u,oB u eTo Ko/\-Bo =',most_max);

[Akcentbek]

Сообщение от Rin

rus_LAN, почти да.

.
2)циклом while с условием достижения конца заданной строки пробегаем по столбцам, ища i-тый элемент. Как только нашли, счетчик+1, переходим на след. столбец.

в это как ))

аа ,,
наверно одновремменно присвавая к счетчику +1
присваиваит его и к перечеслению
но тут же как если он по моим представлениям находится до

[Rin]

Akcentbek, убедил. Вот часть кода. Только я его пишу в полусонном состоянии и не проверял, так что возможны косяки.

...
заполнение матрицы
....
readln(stroka);
most_char:=stroka[1];
most_max:=0;
for k:= 1 to length(stroka) do
begin
   i:=1;
   j:=1;
   schetchik:=0;
   while (i<>n) or (stroka[k]=matrix[j,i]) do
   begin
       while (j<>n) or (stroka[k]=matrix[j,i]) do
       begin
          if stroka[k]=matrix[j,i] then   schetchik:=schetchik+1;
          j:=j+1; 
       end;
   i:=i+1;
   end;
   if schetchik>most_max then
   begin
       most_max:=schetchik;
       most_char:=stroka[k];
   end;
end;