Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
{$APPTYPE CONSOLE}
uses SysUtils;
var A:array of array of Integer;
B:array of Integer; i,j,N,M,t:Integer;
begin { TODO -oUser -cConsole Main : Insert code here } t:=0;
while not (N in [1..100]) do begin write('N = ');
readln(N);
end;
while not (M in [1..100]) do begin write('M = ');
readln(M);
end; SetLength(A,N,M);
Writeln('Matrix is - ');
for i:=0 to N-1 do begin for j:=0 to M-1 do begin A[i,j]:=Random(30)-10;
write(A[i,j],' ');
if A[i,j]>=0 then begin SetLength(B,t+1);
B[t]:=A[i,j]; Inc(t);
end;
end;
Writeln;
end; Write('Massive B = ');
for i:=0 to t-1 do write(B[i],' ');
A:=nil;
B:=nil;
readln;
end.