VPF::Двумерный массив (задача) - Форум программистов

Alen4ik

Дата 18.5.2009, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

Каждый из 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.

Закрыто... Дубликат

Это сообщение отредактировал(а) volvo877 - 20.5.2009, 11:18

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »