Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Двумерный массив (задача)

Автор: Alen4ik 18.5.2009, 16:54

Каждый из N посетителей кафе (N-заданное число) выбрал 3 блюда из предложенного списка, содержащего 10 наименований.
Необходимо определить кол-во посетителей, чьи вкусы полностью совпали, напечатать номера выбранных блюд.
Порядок перечисления блюд одним посетителем не важен, но каждый из них не может выбрать одно и то же блюдо несколько раз.

Вот мои наработки, но работает не совсем так.

Помогите, пожалуйста, исправить ошибку

Код


uses crt;
var mn:array[1..100,1..100] of integer;
n,a,b,c:byte;
d,i,j,k,s,p,t:byte;
begin
clrscr;
write('n=');readln(n);
writeln('‚Vvod nabora blud:');
s:=1;
for i:=1 to n do
for j:=1 to 3 do
begin
Writeln ('Vvedite', j, ' bludo');
Readln (mn[i,j]);
end;
Write ('Ravniy nabor Bludo ');
for i:=1 to 3 do
for u:=2 to n do
begin
k:=0;
for d:=1 to n do
begin
for j:=1 to 3 do
if mn[i,d]=mn[u,j] then begin k:=k+1; write (mn [i,d], ' ');
if k=3 then s:=s+1;
end;
end;
end;
write('zakazali ', s, ' chelovek');
readln;
end.

Закрыто... http://forum.vingrad.ru/index.php?showtopic=259919&view=findpost&p=1872401