Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
Если бы проводник был пришельцем, тут возможно 2 варианта:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду (то есть, не то, что сказал встреченый), то есть, что встреченный пришелец
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду, то есть, что встреченный пришелец.
Оба варианта нам не подходят, рассмотрим случаи, когда проводник абориген:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду (то есть, то, что сказал встреченый), то есть, что встреченный абориген
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду, то есть, что встреченный абориген.
Оба условия подходят, значит проводник - абориген!
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.