# Это может привести

Это может привести к тому, что возможно появление жителей, представляющих все оставшиеся партии. Совместим проверку наличия вхождений, исключение части жителей и сжатие массива A в одной функции. Ее вид. function Come(var t:Nint):boolean; {Проверяем - есть ли вхождения? Если есть, то исключаем соответствующих жителей и сжимаем массив А} var i,j,l:Nint; begin for i:=1 to t-1 do for j:=i+1 to t do if A[j].part&lt;=A[i].part then begin A[j].part:=[];A[j].number:=0; end; l:=t; for i:=1 to t do begin if (A[i].part=[]) and (i&lt;=l) then begin for j:=i to l-1 do A[j]:=A[j+1]; A[l].number:=0;A[l].part:=[]; Dec(l); end; end; Come:=Not(t=l); t:=l; end; Вариант построения процедуры исключения «карликовых» партий может быть и таким. procedure Pygmy(t:Nint;var r,p:Sset);{t - количество обрабатываемых элементов массива А; r - множество номеров жителей, включаемых в парламент; p - множество номеров партий, представляемых

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа