Двумерный массив. О цене договоримся.

[stasig]

Дан двумерный массив символов. Определить пару строк, содержащих наибольшее число общих символов(одинаковых для обеих строк).

[1991_BoS]

Стучи 432394078

[alex_fcsm]

А чем Вас это не устраивает?

[svobodys]

Просто препод не примет.
т.к. функции он еще не объяснял.

[alex_fcsm]

uses crt;
const n=10;
var i,j,max,l,r,temp,n1,p,k:integer;
    a:array[1..n,1..n] of char;
     m,m1:set of char;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
 for j:=1 to n do
 begin
  a[i,j]:=chr(random(25)+65);{инициализируем матрицу букв}
  write(a[i,j],' ');
 end;
 writeln;
 end;

l:=1;r:=1;max:=0;{начальные присвоения}
for i:=1 to n do
 for j:=1 to n do
   if i<>j then begin
                 n1:=0;
                 m:=[];{множество букв строки i}
                 m1:=[];{множество совпавших букв}
                 for p:=1 to n do
                          if not(a[i,p] in m) then begin 
                           m:=m+[a[i,p]];{если буква из строки i еще не рассматривалась то просматриваем}
                           for k:=1 to n do
                            if (a[i,p]=a[j,k])and(not(a[j,k] in m1)) then begin 
                                                   m1:=m1+[a[j,k]];{если буква есть в j}
                                                   inc(n1);
                                                  end;
                          end; 
                 temp:=n1;{число совпадений}
                 if temp>max then begin {если больше чем до этого то запоминаем их и номера этих строк}
                                   l:=i;
                                   r:=j;
                                   max:=temp;
                                  end;
                 end;

  writeln(l,' ',r,' ',max,'chars');

end.

[stasig]

А можете немного пояснить ход решения..

[alex_fcsm]

Посмотрите пост выше

[stasig]

Извините еще раз, просто не сталкивался с этим.
a[i,j]:=chr(random(25)+65) {мы инициализируем матрицу значит, а 25 и 65 что такое?}
и вот еще

if (a[i,p]=a[j,k])and(not(a[j,k] in m1)) then begin
тут у нас условие как работает?

[alex_fcsm]

Извините еще раз, просто не сталкивался с этим.
a[i,j]:=chr(random(25)+65) {мы инициализируем матрицу значит, а 25 и 65 что такое?}

ASCII код букв начинается от 65 до 90, таким образом чтобы сгенерировать букву мы берем число из диапазона от 65 до 90 и "переводим" его в букву.
Посмотрите таблицу ASCII символов от 65 до 90.

if (a[i,p]=a[j,k])and(not(a[j,k] in m1)) then begin
тут у нас условие как работает?

Если в строке i буква [i,p] равна букве[j,k] в строке j и при этом букву [j,k] не рассматривали то подсчитываем ее.
Это условие позволяет избегать повторения буквы в строке

A B C D
A A A A

без этого (not(a[j,k] in m1)) условия получится 4 - хотя совпадений между 2 - мя строками только 1