Init;{предполагается,
Init;{предполагается, что данные корректны и во входном файле они организованы так, как представлены в примере из формулировки задачи}
....
begin
.....
readln(N);{число жителей}
for i:=1 to N do with A[i] do begin man:=i; part:=[i]; end;{каждый житель представляет свою партию}
for i:=1 to N do begin
while Not eoln do begin read(t);A[t].part:=A[t].part+[i];{житель t представляет партию с номером i, или партия с номером i представлена жителем t}
end;
readln;
end;
for i:=1 to N do A[i].number:=Num(A[i].part);
....
end;
Следующим очевидным шагом является сортировка массива А по значению поля number. Становится понятным и необходимость ввода поля man в структуру записи - после сортировки номер элемента массива А не соответствует номеру жителя острова.
Пока не будем задумываться о том, как сократить перебор. Попытаемся набросать общую схему. Используемые переменные достаточно очевидны, они описываются в процессе их ввода, присвоение начальных значений
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
